变更令无法调用问题。

小数位数计算相关，还原至旧代码。

Units/UtilMethods.pas

@@ -234,10 +234,7 @@ begin
     end;
   P := @X;
   CopyMemory(P, @Buf[0], SizeOf(X));
-  if (ADigit < -6) and (ADigit < GetTrueDigit(AValue)) then
-    Result := AValue
-  else
-    Result := InnerRoundTo(X, ADigit, RoundMode);
+  Result := InnerRoundTo(X, ADigit, RoundMode);
 end;
 
 function CommonCalcRoundTo(AValue: Double): Double;