[dec]

Hola,

En este caso deberías usar la función "IntToStr()":

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  lblTime.Caption := IntToStr(progressbar1.Step);
  progressbar1.StepBy(1);
end;