怎样使程序延时几秒而又不停滞?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  OldTime:integer;
begin
  OldTime:=GetTickCount;
  Button1.Enabled:=false;
  //延时十秒
  while(GetTickCount-OldTime<10000) do
    //消息循环
    Application.ProcessMessages;
  Button1.Enabled:=true;
end;

Answer 1

放一个TIMER上去
用timer1.enabled:=true;
and 
timer1.enabled:=false;
来解决

Answer 2

Q：怎样让程序延时A：procedure Delay(msecs:integer);var
FirstTickCount:longint;beginFirstTickCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-FirstTickCount) >= Longint(msecs));end; 
 
来自：http://www.inprise.com.cn/support/delphi/delay.htm

Answer 3

用sleep();函数
用法：sleep(time),time:integer;sleep(1000)表示延时1秒