[Asinkrit]

Ну как вариант,

Код:

begin
  Application.Initialize;
  
  Form2 := TForm2.Create(nil);
  Form2.Show;
  
  while Form2.Visible do
    Application.ProcessMessages;

  Form2.Destroy; //не забываем за собой убирать..
  
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end;