anchor.diff:  constructor TImpl_fpxml_mXmlElement.Create;
   begin
     FNode := nil;
  +  FGarbage := TObjectList.Create(true);
   
     FFormatSettings := DefaultFormatSettings;
     FFormatSettings.DecimalSeparator:= '.';
  
positive.code: function TImpl_fpxml_mXmlDocument._CreateRootElement(const aName: string): TmXmlElement;
  begin
    assert (not Assigned(FRoot), 'XML RootElement already assigned!');
    FRoot := FXMLDocument.CreateElement(aName);
    FXMLDocument.Appendchild(FRoot);
    Result := TmXmlElement.Create(FRoot);
  
negative.code:   list : TStringList;
    i : integer;
  begin
    FreeAndNil(FXMLDocument);
    stream := TStringStream.Create('', TEncoding.UTF8);
    fileStream := TFileStream.Create(aFilename, fmOpenRead);
    try
  