Hola de nuevo.
Mirá, acabo de probarlo así y funciona correctamente.
.- Saqué Form2 de Auto-create forms en Project-> Options
En Unit1: Form1 y Button1. En el evento OnClick de Button1:
Código:
..
Implementation
uses Unit2;
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Enabled:= False;
with TForm2.Create(nil) do
try
ShowModal;
finally
Free;
end;
end;
. En el evento OnClose de Form2:
Código:
...
Implementation
uses Unit1;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Button1.Enabled:= True;
end;
Saludos.