Métodos en profundidad (14) - métodos declarados en la clase TForm1

// Punto 14: si se declara en la clase TForm1, es un método de la 
unidad de clase TForm1 Unidad1 ; la 

interfaz 

utiliza 
  Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios, 
  Diálogos, StdCtrls; 

escriba 
  TForm1 = clase (TForm) Botón1 
    : TButton; 
    procedimiento Button1Click (Remitente: TObject);
     función MyFun (x, y: Integer): Integer; { función declarada en el cuerpo de la clase TForm1 } 
    { Ahora esta función MyFun ya es un método de la clase TForm1 } 
  end ; 

var 
  Form1: TForm1; 

implementación 

{ $ R * .dfm } 

{La función debe tener TForm1 en el área de implementación. Como prefijo } 
función TForm1.MyFun (x, y: Integer): Integer;
 begin 
  Result: = x + y;
 end ; 

{ call } 
procedure TForm1.Button1Click (Sender: TObject);
 var 
  i : Entero; 
comienzo 
  i: = MyFun ( 1 , 2 ); 
  ShowMessage (IntToStr (i)); { 3 } 
end ; 

end .