procedure TForm1.Timer1Timer(Sender: TObject);
begin try
timer1.Enabled := false;
Show;
except end;End;