Hola Drakyto.
Me parece que el problema está en la creación y destrucción de ventanas.
.- Saca el segundo Form de "
Auto-Create forms".
. Te pongo un símple código ejemplo de creación:
Código:
{ CREAR NO MODAL }
procedure TForm1.btnNoModalClick(Sender: TObject);
var
frm: TForm;
begin
frm:= Application.FindComponent('Form2') as TForm;
if Assigned(frm) then // SI ESTA OCULTO,
frm.Show // MOSTRAR
else
Form2:=TForm2.Create(Application); // SI NO CREAR
end;
{ CREAR MODAL }
procedure TForm1.btnModalClick(Sender: TObject);
begin
with TForm2.Create(Application) do
begin
try
ShowModal;
finally
Free;
end
end;
end;
.- Recuerda asignar
Action:= caFree en el evento
OnClose del segundo Form.
Saludos.