Cómo acceder a métodos protegidos (protected) de una clase

unit UnitSuma; 
 
interface 
 
type 
  TSuma = class 
   private 
     FA,FB: Integer; 
     FResultado: Integer; 
     procedure SetA(const Value: Integer); 
     procedure SetB(const Value: Integer); 
   protected 
     // función que queremos usar 
     function Suma(A, B: Integer):Integer; 
   public 
     constructor Create; 
     destructor Destroy; 
     property A: Integer read FA write SetA; 
     property B: Integer read FB write SetB; 
     property Resultado: Integer read FResultat; 
  end; 
... 
implementation 
... 
function TSuma.Suma(A, B: Integer): Integer; 
begin 
  Result := A + B; 
end; 
 
... 
end.

  var MiSuma: TSuma; 
  ... 
  MiSuma.A := 5; 
  MiSuma.B := 9; 
  Result := MiSuma.Resultado;

unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, unitSuma; 
 
type 
  // Nuestra clase derivada... 
  // A trabés de su definición, todos los métodos protegidos se convierten en 
  // visibles para todo el código escrito en la unidad 
  THackSuma = class(TSuma); 
 
  TForm1 = class(TForm) 
  private 
  public 
    procedure Calcula; 
  end; 
... 
implementation 
... 
procedure TForm1.Calcula; 
var 
  MiSuma: TSuma; 
begin 
... 
  // Casteamos MiSuma para usar el método ahora visible
  Result := THackSuma(MiSuma).Suma(A, B); 
.... 
end;