[GELÖST] Konsolenanwendung - 50% Auslastung in der Schleife

[internetnavigator]

Hallo zusammen,
ich arbeite zur Zeit an einer Konsolenanwendung, welche auf OnPrivateMessage (Indy10) direkt in einem eigenen TEvent reagiert und dieses auch fehlerfrei verarbeitet.

Nun habe ich noch ein

Delphi-Quellcode:

repeat
until Ende;

drin, da die Anwendung sonst ja nur einmal durchlaufen würde und dann schließen würde; Und keine OnPrivateMessage mehr verarbeitet werden könnte.

Ende ist folgend belegt:

Delphi-Quellcode:

procedure Beenden(Grund : String);
begin
  ExitGrund := Grund;
  Ende      := TRUE;
end;

Zum Testen des OnPrivateMessage Events ist das auch garkein Problem, nur dass es halt beide Cores der Cpu mit 50% auslastet,
und das kanns ja wohl nicht sein

Wie kann ich denn die Anwendung "anhalten" und dann dennoch auf die Events reagieren?

[turboPASCAL]

Delphi-Quellcode:

repeat
  sleep(10);
until Ende;

sollte helfen.

[internetnavigator]

Perfekt. Danke!

Es ist doch immer das Simpelste was man übersieht