[icWasya]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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.