[Assistant]

взято из Delphi World:

Код:

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