Перенос данных из грида в ексель

Procedure SendtoExcel(ShFile: String; Querys: TADOQuery);
Var
   ExcelApp, Workbook, Range, Cell1, Cell2,Cell3, ArrayData: Variant;
   BeginCol, BeginRow, j: integer;
   RowCount, ColCount: Integer;
Begin
try
 Querys.Open;
 BeginCol := 1;
 BeginRow := 1;
 RowCount := Querys.RecordCount+1;
 ColCount := Querys.FieldDefs.Count;
 
 ExcelApp := CreateOleObject('Excel.Application');
 
 ExcelApp.Application.EnableEvents:= false;
 
 Workbook := ExcelApp.WorkBooks.Add;
 
 WorkBook.SaveAs(ShFile);
 
 ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
 
   Querys.DisableControls;
   Querys.First;
 
  For J := 0 To Querys.FieldDefs.Count-1 Do
    ArrayData[1, J+1]:=Exp_Otch.DBGrid1.Columns[J].FieldName;
 
  While Not Querys.eof Do
    Begin
      For J := 1 To Querys.FieldDefs.Count Do
        Begin
          ArrayData[Querys.RecNo+1,J]:=Querys.FieldbyName(Querys.FieldDefs.Items[j - 1].DisplayName).value;
        End;
      Querys.Next;
    End;
 
 Querys.EnableControls;
 
 WorkBook.WorkSheets[1].Columns[1].ColumnWidth := 20;
 WorkBook.WorkSheets[1].Columns[2].ColumnWidth := 20;
 WorkBook.WorkSheets[1].Columns[3].ColumnWidth := 20;
 WorkBook.WorkSheets[1].Columns[4].ColumnWidth := 20;
 WorkBook.WorkSheets[1].Columns[5].ColumnWidth := 20;
 WorkBook.WorkSheets[1].Columns[6].ColumnWidth := 20;
 
 Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
 Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1, BeginCol + ColCount - 1];
 Cell3 :=WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol + ColCount - 1];
 
 Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
 Range.Value := ArrayData;
 Range.Borders.LineStyle:=1;
 Range.HorizontalAlignment := 3;
 Range := WorkBook.WorkSheets[1].Range[Cell1, Cell3];
 Range.Font.Bold := True;
 ExcelApp.Visible := True;
 
ExcelApp:= Unassigned;
Workbook:= Unassigned;
Range:= Unassigned;
Cell1:= Unassigned;
Cell2:= Unassigned;
Cell3:= Unassigned;
ArrayData:= Unassigned;
except on E: Exception do
end;
end;

if SaveDialog1.Execute then
SendtoExcel(SaveDialog1.FileName,DataModule_Zap.ADOQuery_Prise);