{
This example shows progress of loading forms as an 
application starts up. The code example is placed in the 
project source (*.dpr) file.  To see project source, select 
the View | Project Source menu item.  
You will need to set up your project with the following steps
before using the code example:
	Add four additional forms to a default project. 
	Place a TProgressBar on Form5
	Take the Project|Options|Forms menu option and place 
          Form5 on the available forms list.
	Change the code of your project (*.dpr) file to look 
          like the example.
} 
begin
  Application.Initialize;
  with TForm5.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;  // show a splash screen contain ProgressBar control
    Update; // force display of 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;
  end;
  Application.Run;
end.
 
