[Asinkrit]

Сообщение от romingood

Application.ProcessMessages
sleep(5000);
Application.ProcessMessages

Используй лучше следующую функцию, вместо выше написаного кода.

Код:

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= DWORD(dwMilliseconds);
 end;