Application.Terminated wenn Formular geschloßen??

[romber]

Hallo!

Ich habe mehrere Formulare in meinem Projekt, doch keins davon wird atomatisch beim Start erstellt. Stattdesen wird ein Object erstellt, der während der ganzen Sitzung da ist, bestimmte Kode ausführt und dann entscheidet welche Form erstellt und angezeigt werden soll. Damit sich das Programm nach dem erstellen dieses Object nicht gleich beendet wird, warte ich mit while not Apllication.Terminated do bis das Programm wirklich geschloßen werden soll. Irgendwan wird dann das erste Formular erstellt und sobald das Formular dann geschlossen wird, beenden sich das ganze Programm. Warum ist es so und was kann ich dagegen unternehmen?

Hier die Code:

Delphi-Quellcode:

program updater;

uses
  Forms,
  AppStart in 'AppStart.pas',
  frmUpdateFiles in 'Unit1.pas',
  frmUpdateReg in 'Unit2.pas',
  frmAnalyse in 'Unit3.pas';

{$R *.res}

begin
  Application.Initialize;
  Start := TAppStart.Create;                // Diese TAppStart wird in einer anderen Unit deklariert. 
  while not Application.Terminated do       // Dieser Object analysiert den Stand einer bestimmten  
  begin                                     // Anwendung und führt bei Bedarf automatisches Update durch.
    Sleep(1);                               // Je nach Fortschritt wird ein entsprechendes Formular geöffnet.
    Application.ProcessMessages;
  end;
  Start.Free;
  Application.Run;

end.