[M.A.D.M.A.N.]

Код:

function SolveForY(X, Z: LongWord): Byte;
begin
  if Z = 0 then Result := 0
  else Result := Byte(Trunc( (X * 100.0) / Z ));
end;

function GetPercentDone(FMinValue,FCurValue,FMaxValue:LongWord): Byte;
begin
  Result := SolveForY(FCurValue - FMinValue, FMaxValue - FMinValue);
end;

Admin: Читай правила форума по оформлению кода!

Функция переведет в проценты.(Для заливки или п ширине, как угодно)
Из процентов в число перевести сможеш?