[max89]

Необходимо показать окно перед запуском программы, пробую так:

Код:

begin
Application.Initialize;
Form2 := TForm2.Create(nil);
Form2.ShowModal;
Application.CreateForm(TForm1, Form1);
Application.Run;
end;

ошибку выдает, когда пытаюсь открыть окно, как реализовать?

[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;

[max89]

Благодарю!!!