Programm lässt sich nicht beenden

[Sunlight7]

Oder einfach so...

Delphi-Quellcode:

program Project1;

uses
  Forms,
  ...
  Unit1 in 'Unit1.pas' {FrmMain};

{$R *.res}

begin
  Application.Initialize;

  if ParamStr(1) <> '' then
  begin
    ShowMessage('Sub-Programmstart');
    subprogramm;
    ShowMessage('Programm wird jetzt beendet.');
    Exit;
  end; // Dann brauchts erst gar kein else

  Application.CreateForm(TFrmMain, FrmMain);
  Application.Run;
end.