Вот пример по проще и по нагляднее:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer; // переменная - счетчик
begin
ProgressBar1.Min := 0; // на всякий случай ставим минимум
ProgressBar1.Max := 1000; // это максимальное значение положения (св-ва Position)
ProgressBar1.Position := 0; // обнуляем текущее положение
// при каждой итерации (проходе) этого цикла
// мы устанавливаем текущую позицию прогресс бара, равную
// нашему счетчику, который естественно, каждую итерацию увеличивается
for I := 0 to 1000 do
begin
ProgressBar1.Position := I;
ProgressBar1.Update;
Sleep(10);
end;
end;
|