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;