Application.Processmessages blockiert

[DoktorD]

Hi. Ich nutze in meinen Programm Application.Processmessages um zu warten, bis eine bestimmte sage eintritt.
Aber wenn ich dies in einer Whileschleife ablaufen lasse, kann ich das Programm mit Alt + F4 nicht beenden.

Warum ist das denn so?
Wie kann ich das lösen?

Hier mal ein kleines Beispiel:

Delphi-Quellcode:

procedure TForm22.FormActivate(Sender: TObject);
begin
  while m_bTest = FALSE do
    Application.ProcessMessages;
end;

Danke für Eure Antworten