[lazarus] Splash screen...

[Tom Lisjac]

I'm trying to add a splash screen to a slow initializing app. The splash
form comes up fine... but the components on it aren't visible during the
startup.

I've tried the following with a lot of variations but the splash
components just won't show. Am I missing a step somewhere?

var i:Integer;
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  With TForm2.Create(nil) do
  Try
    for i:=1 to MaxStopwatches do
    Begin
      Application.CreateForm(TForm2, NewStopwatches[i]);
      Progressbar1.position:=i
    End;
  Finally
    free
  End;
  Application.Run;
end.