lblTime.caption := PChar(ProgressBar1.step) Problema Ayuda!

[Gattaca]

Hola a todos, veran tengo un problema con este codigo:

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

Al tratar de ejecutar la aplicasion delphi me tira un error...
Alguien sabe como solucionarlo?

[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;