anchor.diff:    end;
   end;
   
  +procedure AddErrataCorrigeForFieldName(const aOriginalString, aNewString: String);
  +begin
  +  if not Assigned (ErrataCorrigeFieldNamesOriginals) then
  +    ErrataCorrigeFieldNamesOriginals := TStringList.Create();
  +  if not Assigned(ErrataCorrigeFieldNamesReplacements) then
  +    ErrataCorrigeFieldNamesReplacements := TStringList.Create();
  +  ErrataCorrigeFieldNamesOriginals.Add(aOriginalString);
  +  ErrataCorrigeFieldNamesReplacements.Add(aNewString);
  +end;
  +
  +
  +finalization
  +  FreeAndNil(ErrataCorrigeFieldNamesOriginals);
  +  FreeAndNil(ErrataCorrigeFieldNamesReplacements);
   end.
  
positive.code: procedure SaveGridColumnsSettingToXmlElement (const aSource : TmGridColumnsSettings; aXmlElement : TmXmlElement);
  procedure LoadGridColumnsSettingFromXmlElement (aDestination : TmGridColumnsSettings; aXmlElement : TmXmlElement);
  
  
  implementation
  
  uses
    SysUtils;
  
  procedure SaveGridColumnSettingToXmlElement(const aSource: TmGridColumnSettings; aXmlElement: TmXmlElement);
  begin
  
negative.code: procedure LoadGridColumnsSettingFromXmlElement(aDestination: TmGridColumnsSettings; aXmlElement: TmXmlElement);
  var
    tmpCursor : TmXmlElementCursor;
    i, k : integer;
    op : TmGridColumnSettings;
    tmpFieldName : String;
  begin
    aDestination.Clear;
    tmpCursor := TmXmlElementCursor.Create(aXmlElement, 'column');
    try
      for i := 0 to tmpCursor.Count - 1 do
      begin
        tmpFieldName:= tmpCursor.Elements[i].GetAttribute('fieldName');
        for k := 0 to ErrataCorrigeFieldNamesOriginals.Count - 1 do
          tmpFieldName:= StringReplace(tmpFieldName, ErrataCorrigeFieldNamesOriginals.Strings[k], ErrataCorrigeFieldNamesReplacements.Strings[k], [rfReplaceAll]);
        op := aDestination.AddSettingsForField(tmpFieldName);
        LoadGridColumnSettingFromXmlElement(op, tmpCursor.Elements[i]);
      end;
    finally
  