[xdessx]

А нельзя просто написать на таймере:

Код:

if (ProgressBar1.progress <= 100) then
 ProgressBar1.progress := ProgressBar1.progress + 1
else
 ProgressBar1.progress := 0;