procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Visible := false; end;
Timer1.Enabled := false; Form1.Visible := true;