SplashScreen Problem

[Störtebeker]

Hallo,

kleine Nebenbemerkung: Ich arbeite in Lazarus:

ich verwende für mein Programm einen Splash und wollte nun etwas kombinieren, von dem meine vorherige Programme jeweils nur eines besaßen.

Kombination: ProgressBar und Label

Code der Programm-Unit

Delphi-Quellcode:

program Project;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms
  { you can add units after this }, main, robots, splash;

{$IFDEF WINDOWS}{$R manifest.rc}{$ENDIF}

begin
  Application.Initialize;

  Form3 :=TForm3.Create(Application);
  with TForm3.Create(nil) do
  try
  Form3.show;
  Form3.Update;

  Application.Initialize;
  ProgressBar1.Max:=100;
  Show;
  Update;
  Application.Title:= 'Project';
  Application.CreateForm(TForm1, Form1);
  ProgressBar1.StepBy(30);
  Application.CreateForm(TForm2, Form2);
  ProgressBar1.StepBy(80);
  Finally
  free;
  Form3.visible :=false;
  end;
  Application.Run;
end.

Codeausschnitt für eines der weiteren Formulare:

Delphi-Quellcode:

.
.
.
procedure TForm2.FormCreate(Sender: TObject);
begin
sleep(2500);
Form2.DoubleBuffered := true;
Form3.Label8.Caption:='System will be analyzed...';
Form3.Refresh;
end;
.
.
.

Also, der Splash erscheint, die Progressbar lädt. Gleichzeitig soll ein Label anzeigen, was das Programm gerade macht. Ohne ProgressBar funzt es. Aber nicht mit der ProgressBar. Was muss ich machen, damit die Kombination funktioniert?