Label.Caption mit/durch ProgressBar ändern?!?

[xShadowBoZz]

also habe momentan folgendes problem.
ich will das wenn ich eine ProgressBar zum laufen bring durch einen button click das sich ein label nach jeder runde mitverändert.
die progressbar bring ich mit einem timer zum laufen.

ich zeig euch ma wie ich es bis jetzt probiert habe (habs schon mehrmals und unterschiedlich probiert, allerdings funktioniert das fast am besten)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var b: Integer;
begin
  b:=1;
  ProgressBar1.StepBy(1);
  application.ProcessMessages;
  label3.Caption:= label3.Caption +IntToStr(b);
end;

habs in diesem fall enfach mal so gemacht, das die progressbar max. 60 und min.0 hat.
durch den timer wird die Progressbar aktiviert mit einser schritten.
label3.caption sollte eigentlich dann von (sekunde) 0 bis 60 hochlaufen.
stattdessen siht label3.caption so aus (nach jeder runde):
1
11
111
1111
...
also es wird nicht 1+1 gerechnet sondern einfach eine 1dazu getan.
bräuchte halt einfach eine lösung dafür? vllt. ein commando zum addieren?
(falls das basis kenntnise sind, dann habe ich vergessen wie man addiert, also mit einem commando).

danke falls ihr helfen könnt.