¿Problema de memoria?

[__cadetill]

Pues con permiso del personal, yo añadiré un try...except al código propuesto

Código Delphi [-]
resourcestring
  errCreatingForm = 'Error en la aplicación. Mensaje de error'#13#13'%s';

implementation

..............

Form1 := TForm1.Create(Self);
try
  try
    Form1.ShowModal;
  finally
    FreeAndNil(Form1);
  end;
except
  on E: Exception do
    Application.MessageBox(PChar(Format(errCreatingForm, [E.Message])), 'Atención', MB_OK);
end;

Es que me gusta ver el tipo de excepción lebantada en una pantallita controlada po mi, manias de uno, ya véis