[valvl63]

Крутил-вертел и сделал:

Код:

ProgressBar max = 8
...
ProgressBar1.position:=(HiWord (Level) * Trackbar1.Position) div 65535;
...

Я думаю сойдет.