anchor.diff:  begin
     FNode := nil;
     FGarbage := TObjectList.Create(true);
  +
  +  FFormatSettings := DefaultFormatSettings;
  +  FFormatSettings.DecimalSeparator:= '.';
  +  FFormatSettings.CurrencyString:= '€';
  +  FFormatSettings.ThousandSeparator:= ',';
   end;
   
   destructor TImpl_oxml_mXmlElement.Destroy;
  
positive.code: 
  procedure TImpl_oxml_mXmlElement._SetFloatAttribute(Name: TmXmlString;Value: double);
  begin
    FNode^.SetAttribute(Name, FloatToStr(Value));
  end;
  
  function TImpl_oxml_mXmlElement._GetFloatAttribute(Name: TmXmlString): double;
  
negative.code:   private
      FNode : PXMLNode;
      FGarbage : TObjectList;
      FFormatSettings : TFormatSettings;
      procedure RaiseMissingAttributeException(Name: TmXMLString);
      procedure RaiseWrongDateTimeException(Name, Value: TmXMLString);
      procedure RaiseWrongDateException(Name, Value: TmXMLString);
  