正常计量，不应报错。Rela: Bug #1533 删除变更令重新调用，不应报错

Units/UtilMethods.pas

@@ -241,7 +241,7 @@ end;
 
 function CommonCalcRoundTo(AValue: Double): Double;
 begin
-  Result := CommonRoundTo(AValue, 12);
+  Result := CommonRoundTo(AValue, -12);
 end;
 
 {Interface Control}