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;