[__cadetill]

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  ProgressBar1.Position := 0;
  ProgressBar1.Step := 1;
  ProgressBar1.Max := 100;
  ProgressBar1.Min := 0;
  for i := 1 to ProgressBar1.Max do
  begin
    Label1.Caption := IntToStr(ProgressBar1.Position);
    ProgressBar1.StepIt;
    Sleep(100); // solo es para ver el visionado
    Application.ProcessMessages;
  end;
end;