Если не трудно прокомментируйте до конца код на Delphi

var
  FieldWidth, i: integer; // Длина текущего значения поля(в пикселях)
  ds: TDataSet; // Датасет отображаемый в гриде(рабочий датасет)
  arMaxLength: array of integer; // массив в котором хранятся длины колонок(в пикселях)
  fld: TField;
 
const
  defborder = 5;//Промежуток между ячейками грида
begin
   ADOTable2.Active:=false;
ADOTable2.TableName:='Документы';
ADOTable2.Active:=true;
           Form1.Caption:='Документы';
          SetLength(arMaxLength, DBGrid1.Columns.Count);
                  DBGrid1.DataSource:=DataSource2;
//Установить длину массива = к-ву колонок сетки
      SetLength(arMaxLength, DBGrid1.Columns.Count);
 
  // Заполнить массив исходными значениями длин колонок сетки
  // Исходная длина полей = длине наименования колонки
  for i := Low(arMaxLength) to High(arMaxLength) do
  begin
    // Установить фонт канвы = фонту строки заголовка колонки для корректного определения ширины текста
    DBGrid1.Canvas.Font := DBGrid1.Columns[i].Title.Font;
    arMaxLength[i] := DBGrid1.Canvas.TextWidth(DBGrid1.Columns[i].Title.Caption) + defborder;
  end;
 
  // Если датасет открыт - определить ширину колонок
  if (DBGrid1.DataSource <> nil) and (DBGrid1.DataSource.DataSet.Active) then
  begin
    ds := DBGrid1.DataSource.DataSet;
    ds.DisableControls; // Блокируем датасет
    ds.First;
    while not ds.eof do
    begin
      for i := Low(arMaxLength) to High(arMaxLength) do
      begin
        // установить фонт канвы = фонту колонки для корректировки определения ширины теста
        DBGrid1.Canvas.Font := DBGrid1.Columns[i].Font;
 
        //Определить максимальную длину значений в каждой колонке
        fld := ds.FindField(DBGrid1.Columns[i].FieldName);
        FieldWidth := DBGrid1.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
    DBGrid1.Columns[i].Width := arMaxLength[i];
  arMaxLength := nil;
 
end;