类的create问题！(20分)

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.

to shopman:
别管那些非标准用法，只要用标准的就可以了，以免发生难以发现的错误，
当然探讨一下是可以的。

多人接受答案了。