Creo que también puede valer esto:
Si quires redondear a dos decimales:
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;