anchor.diff:    aSettings.DisplayFormat.Value:= aColumn.DisplayFormat;
     aSettings.DisplayLabel.Value:= aColumn.Title.Caption;
     aSettings.SortOrder.Value:= aColumn.Index;
  -  aSettings.Width.Value:= aColumn.Width;
  +  aSettings.Width.Value:= max(MINIMUM_GRID_COLUMN_WIDTH, aColumn.Width);
   end;
   
   procedure ApplySettingsToField(aColumn: TColumn; aSettings : TmGridColumnSettings);
  
positive.code: implementation
  
  uses
    SysUtils, Dialogs;
  
  { TmGridColumnsSettings }
  
  
negative.code:     {$IFDEF DEBUG_COL_SET}DebugLn('[ApplySettingsToField] ' + aSettings.FieldName + ' ' +aColumn.Title.Caption);{$ENDIF}
    end;
    if aSettings.Width.NotNull then
      aColumn.Width:= max(aSettings.Width.Value, MINIMUM_GRID_COLUMN_WIDTH);
    if aSettings.SortOrder.NotNull then
      aColumn.Index := aSettings.SortOrder.Value;
  end;
  