anchor.diff:    FDisplayFormat.IsNull:= true;
   end;
   
  +procedure TmGridColumnSettings.Assign(const aSource: TmGridColumnSettings);
  +begin
  +  DisplayLabel.Assign(aSource.DisplayLabel);
  +  Visible.Assign(aSource.Visible);
  +  DisplayFormat.Assign(aSource.DisplayFormat);
  +  Width.Assign(aSource.Width);
  +  SortOrder.Assign(aSource.SortOrder);
  +end;
  +
   end.
  
positive.code:     function GetSettingsForField (aFieldName : String) : TmGridColumnSettings;
      function Count : integer;
      function Get (aIndex : integer): TmGridColumnSettings;
  
      procedure Clear;
    end;
  
negative.code:   Result := FList.Items[aIndex] as TmGridColumnSettings;
  end;
  
  procedure TmGridColumnsSettings.Assign(const aSource: TmGridColumnsSettings);
  var
    i : integer;
  begin
    Self.Clear;
    for i := 0 to aSource.Count -1 do
    begin
      Self.AddSettingsForField(aSource.Get(i).FieldName).Assign(aSource.Get(i));
    end;
  end;
  
  
  procedure TmGridColumnsSettings.Clear;
  begin
  