ProgressBar auf splashform

[khh]

Hallo zusammen,
ich habe ein splashform welches ich folgendermassen anzeige:

Delphi-Quellcode:

  Application.Initialize; 
  splashForm := TSplashForm.Create(nil);
  SplashForm.ShowOnTop;
  Application.ProcessMessages; 
  SplashForm.Update;
  Application.CreateForm(TArtikelstammdatenForm, ArtikelstammdatenForm);
  Application.CreateForm(Tartikelbearbeitenform, artikelbearbeitenform);
  SplashForm.Hide;
  SplashForm.Free;
  Application.Run;

Ich möchte während der Anzeigedauer eine Progressbar laufen lassen und habe in eine Schleife im FormShow des splashforms
folgendes untergebracht:

Delphi-Quellcode:

  for i:= 1 to 10 do
  begin
   ProgressBar1.StepIt;
  end;

leider tut sich nix

ist die ereignisprocedure FormShow der falsche Ort, oder was mache ich falsch?


danke Gruss KH