procedure TForm1.Timer1Timer(Sender: TObject); var form2:TForm2; begin try begin Form2 := Tform2Create(Nil); form2.Show; end; finally end; end;