Разрушаем ненужную форму Form5
begin with TForm5.Create(nil) do try ProgressBar1.Max := 100; Show; // Показываем форму Form5 с индикатором ProgressBar1 Update; // Прорисовываем форму Form5 Application.CreateForm(TForm1, Form1);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm2, Form2);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm3, Form3);
ProgressBar1.StepBy(25);
Application.CreateForm(TForm4, Form4);
ProgressBar1.StepBy(25);
finally Free; // Разрушаем ненужную форму Form5 end; Application.Run; end.