CPU Fresser beim Warten auf ein Flag - Lösung ?

[Klaus01]

Delphi-Quellcode:

while (Flag^ = True) and (Now() < EndTime) do 
  begin 
    Snooze(100); 
    // Application.ProcessMessages;  wird ja schon im Snooze abgearbeitet
  end;

Grüße
Klaus