[Alegun]

Может так

Код:

if PrBar.Position < AWorkCount then PrBar.Position:= AWorkCount;