Экспорт из dbgrid в excel

procedure TForm3.Button5Click(Sender: TObject);
var
i,j,index: Integer;
ExcelApp,sheet: Variant;
 
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Add(-4167);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Âûãðóçêà';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['Âûãðóçêà'];
index:=3;
DBGrid1.DataSource.DataSet.First;
for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to DBGrid1.FieldCount do
sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring;
inc(index);
DBGrid1.DataSource.DataSet.Next;
end;
end;

procedure TForm1.M_MSExcell1Click(Sender: TObject);
Var
Date, InvoiceTemplate:OleVariant;
OutputArray,ExcelApp, Workbook, Range, Cell1, Cell2: Variant;
RowCount, ColCount, Counter : integer;
BeginCol, BeginRow: integer;
I,J:Integer;
 
begin
Screen.Cursor:=crHourGlass;
Counter:=1;
BeginCol:=1;
BeginRow:=1;
RowCount:=SG.RowCount+15;{Количество строк - програмно}
ColCount:=SG.COlCount+15;
 
 
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Application.EnableEvents := false;
Workbook := ExcelApp.WorkBooks.Add;
OutputArray := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
OutputArray[Counter, 4]:='О Т Ч Е Т';
Inc(Counter);
OutputArray[Counter, 2]:='Статистической обработки Ваших данных';
Inc(Counter);
S:=DateTimeToStr(now);
OutputArray[Counter, 2]:='сгенерирован '+VarToStr(S);
Inc(Counter);
 
 
For I:=0 to SG.ColCount do
begin
For J:=0 to SG.RowCount do
begin
OutputArray[J+6, I+1]:=SG.Cells[I,J];
end;
 
end;
 
 
 
 
 
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 := OutputArray;
 
 
 
Screen.Cursor:=crDefault;
Application.ProcessMessages;
ExcelApp.Selection.Font.Name:='Arial cur';
ExcelApp.Selection.Font.Size:=10;
ExcelApp.selection.Columns.AutoFit;
ExcelApp.Range['A1','A1'].select;
 
ExcelApp.Visible := true;
 
{Export to Excell}
end;