über ProgressBar Text anzeigen

[Hermann85]

Hallo,
Ich habe in mein Programm eine Progressbar mit eingebaut, die immer mit anzeigen soll, wo das Programm gerade ist. Da man in TProgressBar keine Textfunktion hat, hab ichs mal mit einem Label versucht. Das Label würde es mir allerdings erst zeigen, wenn das Programm fertig ist. Also die ganzen Zwischenschritte bleiben aus. Hier mal bisl Code:

Delphi-Quellcode:

    aktion := TForm5.Create(Form5);
    with aktion do
    begin
      Show;
      Progressbar1.Min := 0;
      ProgressBar1.Max := 100;
      ProgressBar1.Step := 20;
      Label1.Caption := 'Datensätze werden gezählt';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Excel wird gestartet';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Fahrten werden ausgewertet';
      ProgressBar1.StepIt;
      ...
      Label1.Caption := 'Diagramme werden erstellt';
      ProgressBar1.StepIt;
      ...
      ProgressBar1.StepIt;
      Close;
      Free;
    end;

Gehe ich vlt total falsch an die Sache ran??

Freue mich über jede Hilfe

viele Grüße

Hermann