初学，问个关于timer的问题，谢谢解答

Question

tiimer想要实现label2显示内容，延时一秒后窗体自动关闭怎么写啊，谢谢！
procedure TForm2.Timer1Timer(Sender: TObject);
begin
   Label2.Visible:=true;
   Label2.Caption:=内容!';//这句不显示
   from1.close;  //直接就窗体关闭了
end;

Answer 1

s: integer;...s:= -1;....procedure TForm2.Timer1Timer(Sender: TObject);
begin
  inc(s);
  Label2.Visible:=true;
  Label2.Caption:=内容!';
  if s>1 then  from1.close; //直接就窗体关闭了
end;

Answer 2

  if s>1 then application.Terminate; //直接就窗体关闭了