等待函數（界面保持響應正常）不同於Sleep

等待函數（界面保持響應正常）不同於Sleep

// 自定義函數

procedure WaitTime(MSecs: integer);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := Windows.GetTickCount();
  repeat
    Application.ProcessMessages;
    Now := Windows.GetTickCount();
  until
    (Now - FirstTickCount >= MSecs) or (Now < FirstTickCount);
end;

Eg: WaitTime(1000);