等待时间问题，比如我要程序等待5秒，应该怎么写呢？

Question

i:=gettickcount;
repeat
 application.progressmessage;
until gettickcount>i+5*1000;

Answer 1

var
   t:TDateTime;
begin
   t:=GetTickCout();
   While t<5000 do
       t:=GetTickCout()-t;
end

Answer 2

form1.enabled:=false;
**********************
timer:
    form1.enabled:=true;
    timer.free;
**********************

Answer 3

procedure delaytime(count:LongWORD);
var temp:LongWORD;
begin
  temp:=gettickcount();
  repeat
    application.ProcessMessages;
  until (gettickcount()-temp)<count;
end;

Answer 4

to fable(老四)　:
        "until (gettickcount()-temp)<count;"
应该改为"until (gettickcount()-temp)>count;"吧?
:p