等待函数(界面保持响应正常)不同于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);