>>147
こんなん使ってますが。nが小数点以下の桁数。
function HalfAdjustN(x: Double; n: Integer): Double;
begin
Result := Int(x * IntPower(10, n) + Sign(x) * 0.5) / IntPower(10, n);
end;