Wenn Form1 das Hauptformular ist, kann man das Problem doch in der
DPR lösen:
Man entferne dort die Zeile
Application.Run;
und füge statt dessen dort ein:
Delphi-Quellcode:
Form1.Show;
Form1.DoSomething;
Das Close in DoSomething führt dazu, dass das Programm beendet wird. Man muss es dann nicht per Selbstmord über
Application.Terminate;
beenden.
Eventuell vorhandene OnClose-Ereignisse werden dann auch noch korrekt verarbeitet.