[RolphyReyes]

Saludos

Este código me funciona:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2.Create(Application);
  Self.Free;
  Form2.ShowModal;
end;

Como ves antes de mandar el Modal del Form2, libero el Form1, entonces cuando cierre el Form2 para cerrar la aplicación:

Código Delphi [-]
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

Prueba y reporta....