Delphi倒计时自动关闭程序，定时自动关闭程序，当倒计时结束时，会自动关闭本程序窗口。相关的代码如下： 　　I:integer ; 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 try 　　 timer1.Interval:=1500; 　　 i:=Strtoint(edit1.Text); 　　 except 　　 showmessage('请输入倒计时关闭程序时间！！！'); 　　 timer1.Interval:=0; 　　 label1.caption:=''; 　　 edit1.SetFocus ; 　　e