Листинг 3

 
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.