[icWasya]

надо как-то так
в файле проекта

Код:

begin
  
  
  FormInit:=TFormInit.Create(nil); //<<==--
  FormInit.Show;                        //<<==--
  FormInit.Update;                      //<<==--

  Application.CreateForm(TMainForm, MainForm);

  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);

  MainForm.Update; //<<==--

  FormInit.Free; //<<==--

  Application.Run;
end.