[Delphi] - PercentToValue

[cla80]

function PercentToValue(Perc100, Perc: Integer): Double;
begin
  Result := Round((Perc100 / 100) * Perc);
end;

function ValueToPercent(Perc100, Value: Integer): Double; 
begin 
  Result := Round((Value / Perc100) * 100); 
end;

Vorrei che però mi risultasse un valore espresso da 2 cifre decimali quando converto da Percentuale a Valore.



Come fare?