anchor.diff:    Result := DoublesAreEqual(aValue1, aValue2) or (aValue1 < aValue2);
   end;
   
  -function DoubleIsLessOrEqual(const aValue1, aValue2: double; const aDecimalNumbers: integer): boolean;
  +function DoubleIsLessOrEqual(const aValue1, aValue2: double; const aFloatingPointDigits: integer): boolean;
   begin
  -  Result := DoublesAreEqual(aValue1, aValue2, aDecimalNumbers) or (aValue1 < aValue2);
  +  Result := DoublesAreEqual(aValue1, aValue2, aFloatingPointDigits) or (aValue1 < aValue2);
   end;
   
   function SafeDiv (numer, denom: double): double;
  
positive.code:   Result := (Abs(aValue1 - aValue2) <= DefaultCompareValue);
  end;
  
  procedure SetDefaultDecimalNumbers (aDecimalNumbers : integer);
  begin
    if (DefaultDecimalNumbers <> aDecimalNumbers) then
    begin
      DefaultCompareValue := Power(10, -1 * aDecimalNumbers) - Power(10, -1 * (aDecimalNumbers + 1)) - Power(10, -1 * (aDecimalNumbers + 2));
      DefaultDecimalNumbers := aDecimalNumbers;
    end;
  end;
  
  
negative.code:   Result := (not DoublesAreEqual(aValue1, aValue2)) and (aValue1 < aValue2);
  end;
  
  function DoubleIsLessThan(const aValue1, aValue2: double; const aFloatingPointDigits: integer): boolean;
  begin
    Result := (not DoublesAreEqual(aValue1, aValue2, aFloatingPointDigits)) and (aValue1 < aValue2);
  end;
  
  function DoubleIsLessOrEqual(const aValue1, aValue2: double): boolean;
  