Oder ohne die Variable b würde es auch so gehen
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepBy(1);
application.ProcessMessages;
inc(b)
label3.Caption:= IntToStr(StrToInt(Label3.Caption)+1);
// Vorsicht das ist ein Pseudo Code (Fehler vorbehalten) :-D
[Edit] Sorry hat himitsu auch gleichzeitig geschrieben (seltsam kam gar keine Melung über "neuer Beitrag hinzugekommen" [/EDIT]