1.sleep(1000);//暂停1秒,缺点:窗口会完全没反应
2.WaitTime(1000);
procedure WaitTime(MSecs:integer);
var
FirstTickCount,Now:Longint;
begin
FirstTickCount:=Windows.GetTickCount();
repeat
Application.ProcessMessages;
Now:=Windows.GetTickCount();
until (Now-FirstTickCount>=MSecs) or (Now