Erbitte Hilfe bei MarqueeProgressBar !!

[Störtebeker]

Ne, leider hat das nicht geholfen.

Code sieht jetzt so aus, und bringt leider auch keine Hilfe:

Delphi-Quellcode:

program Project4;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  SplashScreen in 'SplashScreen.pas' {Form5};

{$R *.res}

begin
  Application.Initialize;
  Form5 := TForm5.Create(Application);

    with TForm5.Create(nil) do
  try
  Form5.Show;
  Form5.Update;

  MarqueeProgressBar1.Max := 100;
    Show;   // Startbildschirm mit ProgressBar anzeigen
    Update; // Anzeige von Form5 auslösen

  Application.Initialize;
  Application.Title := 'Project4';
  Application.CreateForm(TForm4, Form4);
  MarqueeProgressBar1.StepBy(25);
  Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  MarqueeProgressBar1.StepBy(25);
  Application.ProcessMessages;
  Application.CreateForm(TForm3, Form3);
  MarqueeProgressBar1.StepBy(25);
  Application.ProcessMessages;
  Application.CreateForm(TForm2, Form2);
  MarqueeProgressBar1.StepBy(25);
  Application.ProcessMessages;
   Finally
   free;
  Form5.visible :=false;
  end;
  Application.Run;

end.