[Страдалецъ]

Немножко не успел

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

Код:

ProgressBar1.StepIt;
Application.ProcessMessages;