Usa su evento OnWorkBegin para ajustar el máximo de posiciones en la barra:
Código Delphi
[-]
ProgressBar1.Max := AWorkCountMax;
y su evento OnWork para actualizar la posición de la barra:
Código Delphi
[-]
ProgressBar1.Position := AWorkCount;
// Saludos