Como se llama?

[[Héctor Randolph]]

Hola nuevamente!

Después de leer el código que coloqué anteriormente me doy cuenta que es más simple de este otra forma.

Esto lo colocas en el Form1 para capturar el evento OnClose del Form2.

Código Delphi [-]

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure Miprocedimiento(Sender: TObject; var Action :TCloseAction);
  public
  end;

var

  Form1: TForm1;

implementation

uses
 Unit2;

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  try
    OnClose:=Miprocedimiento;
    ShowModal
  finally
    Free;
  end;
end;

procedure TForm1.Miprocedimiento(Sender: TObject; var Action: TCloseAction);
begin
  {Aquí capturas el evento OnClose del Form2}
  ShowMessage('Este mensaje aparecerá justo al momento de cerrar el Form2');
end;

Las dos formas son válidas pero esta es más simple.

Un saludo.