Error al Multiplicar (Función de Redondeo)

[Casimiro Noteví]

Si quieres redondear, por ejemplo, a 2 decimales:

Código Delphi [-]
resultado := redondeo(importe,2);

Código Delphi [-]
uses Math;
...
...
function Redondeo (valor: Double; decimales: integer = 0): Double;
var
  factor: Double;
begin
  factor := IntPower(10,decimales);
  //
  if valor > 0 then
    Result := (trunc((valor*factor)+0.5)) / factor
  else
    Result := (trunc((valor*factor)-0.5)) / factor;
end;