在delphi中怎样在指定的时间关闭窗体

Question

在delphi中
我想每隔5秒在listBox1中添加内容，如果让他运行1分钟是自动关闭窗体，代码应该怎么样写，
怎么样来确定时间是1分钟，应该在什么事件里来控制，
listbox1.Items.Add('nifao') ;
小弟刚学delphi 不久，谢谢写各位大哥大姐

Answer 1

用timer控件!設定激活時間為5000,即為5秒!同理可以確定1分鐘事件!

Answer 2

var
  Form1: TForm1;
  i:integer=0;
implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
    listbox1.Items.Add('nifao') ;
    i:=i+5;
    if i=60 then
    close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    Timer1.Interval:=5000;
end;