Jak powiązać ProgressBar z inkrementacją w pętli? [VCL]

int x=100;
int a=1;
for (int i=0; i<x; i++)
{
 a++;
}

Chciałbym, aby ProgressBar wskazywał stopień zaawansowania wykonania tej prostej pętli.

Dla przykłady gdy a=50 to ProgressBar będzie w połowie, a z każdym kolejną inkrementacją zmiennej i będzie szedł do przodu, aż dojdzie a=100.

ProgressBar->Max = x;, a w pętli daj ProgressBar->Position = a; przed a++;.

Dzięki, właśnie o to chodziło :)