Возникли затруднения при работе с компонентом DBGridEh

uses ComObj; //не забываем подключить этот модуль
 
var
ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : OLEVariant;
 BeginCol, BeginRow, RowCount, ColCount, i, j, k: integer;
 
begin
 SaveDialog1.DefaultExt :='xlsx';
 if not SaveDialog1.Execute then Exit;
  // Координаты левого верхнего угла области, в которую будем выводить данные
  BeginCol := 1;
  BeginRow := 3;
 
  // Создание экземпляра Excel
  ExcelApp := CreateOleObject('Excel.Application');
  try
  // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
  ExcelApp.Application.EnableEvents := False;
  //  Создаем Книгу (Workbook)
  Workbook := ExcelApp.WorkBooks.Add;
 
  // Размеры выводимого массива данных
  RowCount := ADOQuery1.RecordCount;
  ColCount := ADOQuery1.FieldCount;
  // Создаем Вариантный Массив, который заполним выходными данными
  ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
 ADOQuery1.First;
 ADOQuery1.DisableControls;
 
 i :=0;
// экспорт  заголовка таблицы (шапки)
 
for k :=1 to DBGrid1.FieldCount do
if DBGrid1.Columns.Items[k-1].Visible then
 begin
  i :=i+1;
  ExcelApp.cells[1,i] :=DBGrid1.Columns.Items[k-1].Title.caption;
 end;
  //параметры шрифта заголовка
 
  WorkBook.WorkSheets[1].Rows[1].Font.Bold := True;
  WorkBook.WorkSheets[1].Rows[1].Font.Color := clRed;
  WorkBook.WorkSheets[1].Rows[1].Font.Size := 12;
   // Выравниваем заголовок по центру по горизонтали
  WorkBook.WorkSheets[1].Rows[1].HorizontalAlignment := 3;
 
  
//экспорт данных
 
  While not ADOQuery1.EOF do
   Begin
       For j := 1 To  DBGrid1.Columns.Count do
       Begin
           ArrayData[ ADOQuery1.RecNo, j] :=
             ADOQuery1.FieldbyName( ADOQuery1.Fields[j - 1].FieldName).value;
       End;
        ADOQuery1.Next;
end;
 ADOQuery1.EnableControls;
  ExcelApp.cells[1,1].Select;//перенесем курсор Excel'а в первую ячейку
 
  // Левая верхняя ячейка области, в которую будем выводить данные
  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  // Правая нижняя ячейка области, в которую будем выводить данные
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol + ColCount - 1];
 
  // Область, в которую будем выводить данные
  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
  // А вот и сам вывод данных
  // Намного быстрее поячеечного присвоения
  Range.Value := ArrayData;
    Range.HorizontalAlignment :=2; //выравниваем по левому краю содержимое ячеек
  ExcelApp.Columns.AutoFit; //автоподбор ширины колонок
          //Выставляем все границы
  Range.Borders.LineStyle :=1; //тип линии обрамления
  Range.Borders.Weight :=2;  //толщина линий (тонкие)
  //ориентация - альбомная
  ExcelApp.ActiveSheet.PageSetup.Orientation := 2;
 ADOQuery1.First;//возвращаем курсор на первую запись
   Workbook.SaveAs(SaveDialog1.FileName); //сохраняем документ
   finally
 
  //отвязываем Excel
  Workbook.Close(SaveChanges :=False);
  ExcelApp.Quit;
  ExcelApp := Unassigned;
end;

XLApp.workbooks[1].worksheets[1].cells[10,1].FormulaLocal:='=СУММ(R[-'+inttostr(i-1)+']C:R[-1]C)/2';