Подгонка ширины колонок DBGrid под максимальную ширину содержимого поля

// Подгонка ширины колонок DBGrid под максимальную ширину содержимого поля
procedure DBGridEx_SetColumnOnDataWidth(gr: TDBGrid);
var
  FieldWidth, i: integer; // Длина текущего значения поля (в пикселах)
  ds: TDataSet; // Датасет отображаемый в гриде (рабочий датасет)
  arMaxLength: array of integer; // Массив в котором хранятся длины колонок (в пикселах)
  fld: TField;
 
const
  defborder = 5; // Промежуток между ячейками грида
begin
  // Установить длину массива = к-ву колонок сетки
  SetLength(arMaxLength, gr.Columns.Count);
 
  // Заполнить массив исходными значениями длин колонок сетки
  // Исходная длина полей = длине наименования колонки
  for i := Low(arMaxLength) to High(arMaxLength) do
  begin
    // Установить фонт канвы = фонту строки заголовка колонки для корректного определения ширины теста
    gr.Canvas.Font := gr.Columns[i].Title.Font;
    arMaxLength[i] := gr.Canvas.TextWidth(gr.Columns[i].Title.Caption) + defborder;
  end;
 
  // Если датасет открыт - определить ширину колонок
  if (gr.DataSource <> nil) and (gr.DataSource.DataSet.Active) then
  begin
    ds := gr.DataSource.DataSet;  //Нужно ли потом делать ds.Free???????????????
    ds.DisableControls; // Блокируем Датасет
    ds.First;
    while not ds.eof do
    begin
      for i := Low(arMaxLength) to High(arMaxLength) do
      begin
        // Установить фонт канвы = фонту колонки для корректного определения ширины теста
        gr.Canvas.Font := gr.Columns[i].Font;
 
        // Определить максимальную длину значения в каждой колонке датасета
        fld := ds.FindField(gr.Columns[i].FieldName);
        FieldWidth := gr.Canvas.TextWidth(Trim(fld.DisplayText)) + defborder;
        if arMaxLength[i] < FieldWidth then
          arMaxLength[i] := FieldWidth;
      end;
      ds.Next;
    end;
    ds.First;
    ds.EnableControls;
  end;
 
  // Установить в гриде длины колонок
  for i := Low(arMaxLength) to High(arMaxLength) do
    gr.Columns[i].Width := arMaxLength[i];
  arMaxLength := nil;
end;

 DBGrid1.Columns[3].Width := 80; //ширина полей
 DBGrid1.Columns[3].Title.Caption := 'Имя столбцов'; //Имя стольбцов

{$R *.dfm}
procedure MyGridSize(Grid: Tdbgrid);
const
  DEFBORDER = 10;
var
  temp, n: Integer;
  lmax: array [0..30] of Integer;
begin
  with Grid do
  begin
    Canvas.Font := Font;
    for n := 0 to Columns.Count - 1 do
      lmax[n] := Canvas.TextWidth(Fields[n].FieldName) + DEFBORDER;
    grid.DataSource.DataSet.First;
    while not grid.DataSource.DataSet.EOF do
    begin
      for n := 0 to Columns.Count - 1 do
      begin
        temp := Canvas.TextWidth(trim(Columns[n].Field.DisplayText)) + DEFBORDER;
        if temp > lmax[n] then lmax[n] := temp;
      end; {for}
      grid.DataSource.DataSet.Next;
    end;
    grid.DataSource.DataSet.First;
    for n := 0 to Columns.Count - 1 do
      if lmax[n] > 0 then
        Columns[n].Width := lmax[n];
  end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  MyGridSize(DBGrid1);
end;