Progress bar

[Alex217Vish]

а я бы предложил проще:

for i := 0 to 100 do
begin
  progressbar.position := i;
  Caption := IntToStr(i);
end;

собственно под циклом подразумевается то, чем ты управляешь заполненостью прогрес бара