ProgressBar auf splashform

[hincapie]

Kleiner zusätzlicher Denkanstoß:
Wie wäre es mit der Methode "Update"?

Ich mache das bei den SplashForms immer so:

Delphi-Quellcode:

procedure TForm13.ShowNextStep(iPercent: integer);
begin
  Progressbar1.Position := iPercent;
  Update;
end;

In der dpr-Datei wird dann lediglich bis 100% hochgezählt, z. B. so:

Delphi-Quellcode:

   Application.Initialize;
   Application.CreateForm(TForm13, Form13); //-> Splashform 
   Form13.Show;
   Form13.ShowNextStep(25);
   Application.CreateForm(TForm2, Form2);
   ...
   Form13.ShowNextStep(40);
   Application.CreateForm(TForm18, Form18);
   ....
   Form13.ShowNextStep(90);
   Form13.Close;
   Application.Run;