Current location: Delphi Garden → Skills Articles → Programming Experience → Delphi Delay
Delphi delay time
Date: August 31, 2004 Author:
PRocedure Delay(msecs:integer);
var
FirstTickCount:longint;
Begin
FirstTickCount:=GetTickCount;
repeat
application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));
end;
(Source: www.delphhibbs.com)