ширина столбца

procedure DBGridEx_SetColumnOnDataWidth(gr: TDBGrid);
// подгонка ширины колонок  DBGrid под максимальную ширину содержимого поля
var
  FieldWidth,i :integer; // длина текущего значения поля (в пикселах)
  ds :TDataSet; // датасет отображаемый в гриде (рабочий датасет)
  dsC: TADODataSet; // копия рабочего датасета
  arMaxLength : array of integer; // массив в котором хранятся длины колонок (в пикселах)
  fnt : TFont;
  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;
     // создать копию рабочего датасета
     dsC := TADODataSet.Create(nil);
     dsC.Clone(TADODataset(ds));
     dsC.First;
     while not dsC.eof do
       begin
        for i := Low(arMaxLength) to High(arMaxLength) do
          begin
           // установить фонт канвы = фонту колонки для корректного определения ширины теста
           gr.Canvas.Font := gr.Columns[i].Font;
           // определить максимальную длину значения в каждой колонке датасета
           fld := dsC.FindField(gr.Columns[i].FieldName);
           FieldWidth := gr.Canvas.TextWidth(Trim(fld.DisplayText)) + defborder;
           if arMaxLength[i] < FieldWidth  then
              arMaxLength[i] := FieldWidth;
          end;
        dsC.Next;
       end;
    end;
 
  // установить в гриде длины колонок
  for i := Low(arMaxLength) to High(arMaxLength) do
     gr.Columns[i].Width := arMaxLength[i];
 
  dsC.Free;
  arMaxLength := nil;
end;