Как цикл как к нему привязать progressbar?

[Cranerel]

Есть цикл как сделать чтобы progressbar отображал сколько осталось до конца цикла

[Fiery Dragon]

for i:=0 to MaxValue do
begin
ProgressBar.Progress:=i;
end;