round

Units/UtilMethods.pas

@@ -130,11 +130,10 @@ var
 {RoundTo}
 function InnerRoundTo(const AValue: Extended; const ADigit: Integer; RoundMode: TRoundMode): Extended;
 var
-  LFactor, Offset: Extended;
-  HFactor: Integer;
+  LFactor, Offset, HFactor: Extended;
 begin
   LFactor := IntPower(10, ADigit);
-  HFactor := Trunc(IntPower(10, abs(ADigit)));
+  HFactor := IntPower(10, abs(ADigit));
   Result := AValue;
   case RoundMode of
     rmNearest: