delay bzw. sleep

[Sir Rufo]

hi,

Delphi-Quellcode:

procedure SleepX(Milliseconds : Integer);
var
  TC: DWORD;
begin
  TC := GetTickCount;
  repeat
    if application.Terminated then
       exit;
    Application.ProcessMessages; // <--- non-thread
    sleep(1);
  until ((GetTickCount-TC) > Milliseconds);
end;

Kannst du mir mal erklären wofür du in einer Non-Thread-Umgebung ein sleep brauchst?

cu

Oliver