While Schleife um Application.Run

[backdraft]

Hallo zusammen,

ich möchte einen Login Dialog machen, der vor der Mainform ausgeführt wird.
Dann soll die Möglichkeit bestehen, das man sich abmelden und neu anmelden kann.

Dachte ich mach es einfach so:

Delphi-Quellcode:

 WHILE TRUE DO BEGIN
  IF NOT(frm_Login.Create(self).Execute) THEN halt;
  Application.Run;
  IF vabmelden = FALSE THEN break;
 END;

klappt aber gar nicht. geht trotzdem immer raus...