如何在Delphi中让程序延迟几分钟？

Question

这样可以么？procedure TForm1.FormActivate(Sender: TObject);
begin    i:=formatdatetime('ss',now);
    Edit1.Text:=i;
    j:=i;
    while strtoint(j)-strtoint(i)<20 do
    begin
    j:=formatdatetime('ss',now);
    Edit2.Text:=j;
    end;
    showmessage(i+'***'+j);end;

Answer 1

用timer控件，加一个变量记数，当大于某值执行

Answer 2

var
numsec smallint 延时时间
starttime longint
starttime:=now
repeat 
application.processmessage()
until now >starttime+numsec*(1/24/60/60)
end