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