替代sleep的函数Delay

procedure Delay(msecs:integer);
var
  FirstTickCount:dword;
begin
  FirstTickCount:=GetTickCount;
  repeat
    Application.ProcessMessages;
  until ((GetTickCount-FirstTickCount)>=dword(msecs));
end;