Alternative zu Application.ProcessMessage ???

[Schucki]

Hi

ich habe das Problem das ich in meiner Anwendung auf ein Ereigniss warten muß und mir dieses mit einem BOL Wert signalisieren lasse.

Delphi-Quellcode:

procedure WaitForAnswer;
var timGo:TDateTime;
const WaitAns=5000;
begin
  timGo:=GetTickCount;
  while (not bolAns) and (GetTickCount-timGo < WaitAns) do begin
    Application.ProcessMessages;
  end;
end;

Ablauf ist wie folgt...

Delphi-Quellcode:

bolAns:=False;
TakeAction;
WaitForAnswer;

Das doofe ist nur das die CPU voll belastet wird und der Lüfter nach kurzer Zeit anspringt.

Wie macht man sowas eleganter?

Für jeden Tip dankbar,
Frank