Цитата:
|
Проблема в том что 4500 div 8000 возвращает 0
|
Потому, что это и будет 0. Числа должны быть с плавающей точкой, и соответственно вместо div (целочисленное деление) надо использовать "/" (без кавычек, оператор деления чисел с точкой).
UPD: Потом можно отбросить дробную часть (Trunc) и присвоить прогрессбару.
UPD2: А ещё лучше юзать TGauge - она сама перерисовывается при изменении значения.