[AND_REY]

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 Min, Max, N: Integer;
begin
 Min:= 0;    // установка минимального значения
 Max:= 100;  // установка максимального значения
 N:= 5;      // установка размера шага
 ProgressBar1.Min:= Min;
 ProgressBar1.Max:= Max;
 ProgressBar1.Step:= Max div N;
 ProgressBar1.StepIt; // запуск движения (увеличение на один шаг).
end;