Экспорт из DBGrid в Excel

BeginCol := 1;
  BeginRow := 2;
 
  // Создание экземпляра Excel
  ExcelApp := CreateOleObject('Excel.Application');
 
  // Отключаем реакцию Excel на события,
  //чтобы ускорить вывод информации
  ExcelApp.Application.EnableEvents := false;
 
  //  Создаем Книгу (Workbook)
  // Если заполняем шаблон, то
 Workbook := ExcelApp.WorkBooks.add('E:\Дипломка\прога\Excel\1.xlsx');
 //Workbook := ExcelApp.WorkBooks.Add;
// из Grid'а
 with DbGrid1.DataSource.DataSet do
begin
 Last;
 First;
 ArrayData := VarArrayCreate([1, RecordCount, 1, FieldCount], varVariant);
 // Заполняем массив
 for I := 1 to RecordCount do
 begin
   for J := 1 to FieldCount do
     ArrayData[I, J] := Fields[j-1].AsVariant;
   Next;
 end;
end;
  /// Левая верхняя ячейка области,
  //в которую будем выводить данные
  Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
  // Правая нижняя ячейка области,
  //в которую будем выводить данные
  Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + DbGrid1.DataSource.DataSet.RecordCount - 1,
           BeginCol + DbGrid1.DataSource.DataSet.FieldCount - 1];
 
  // Область, в которую будем выводить данные
  Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
 
  // А вот и сам вывод данных
  // Намного быстрее поячеечного присвоения
  Range.Value := ArrayData;
 
  // Делаем Excel видимым
  ExcelApp.Visible := true;

  Workbook := ExcelApp.WorkBooks.Open('E:\Дипломка\прога\Excel\1.xlsx');

  for J := 1 to FieldCount do 
    if Fields[J-1].Name <> 'Kod_App' then
      ArrayData[I, J] := Fields[j-1].AsVariant;

  C := 1; //C : Integer;
  for J := 1 to FieldCount do
    if Fields[J-1].Name <> 'Kod_App' then begin
      ArrayData[I, C] := Fields[j-1].AsVariant;
      Inc(C);
    end;