delphi延时函数详细说明

procedure Delay(msec:integer);
//延时函数，msec 为毫秒(千分之1秒)
var
FirstTickCount : real;
begin
FirstTickCount := GetTickCount();
FirstTickCount := FirstTickCount + msec;

While FirstTickCount > GetTickCount() do
Application.HandleMessage; //关键在这里

end;

delay (5000); // 延时 5 秒