Delphi中延时

Delphi中延时2008-02-02

procedure Delay（msecs:integer）;
var
FirstTickCount:longint;
begin
FirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until （（GetTickCount-FirstTickCount） >= Longint（msecs））;
end;