Экспорт DBGrid в Excel

[SpyCrypt]

Стоит такая задача. Экспортировать содержимое ДБГрида в ексель. Написал процедурку, все компилируется, при нажатии кнопки, программа виснет, и выкидывает ошибку адреса памяти.
Мой код:

procedure TForm1.Button6Click(Sender: TObject);
var
bm: TBookmark;
col, row: Integer;
sline: string;
mem: TMemo;
ExcelApp: Variant;
begin
DBGrid2.DataSource.DataSet.DisableC ontrols;
bm := DBGrid1.DataSource.DataSet.GetBookm ark;
DBGrid2.DataSource.DataSet.First;

ExcelApp := CreateOleObject('Excel.Application' );
ExcelApp.WorkBooks.Add(xlWBatWorkSh eet);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Grid Data';


memo1.Clear;
sline := '';

for col := 0 to DBGrid2.FieldCount do
sline := sline + DBGrid2.Fields[col].DisplayLabel + #9;
memo1.Lines.Add(sline);
for row := 0 to DBGrid2.DataSource.DataSet.RecordCo unt-1 do
begin
sline := '';
for col := 0 to DBGrid2.FieldCount-1 do
sline := sline + DBGrid1.Fields[col].AsString + #9;
memo1.Lines.Add(sline);
DBGrid1.DataSource.DataSet.Next;
end;

ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
ExcelApp.Visible := true;


FreeAndNil(ExcelApp);
DBGrid2.DataSource.DataSet.GotoBook mark(bm);
DBGrid2.DataSource.DataSet.FreeBook mark(bm);
DBGrid2.DataSource.DataSet.EnableCo ntrols;

end;



Где я накосячил? Или можно по другому как тосделать?

[ReportCube]

Где правильно?
for col := 0 to DBGrid2.FieldCount do
for col := 0 to DBGrid2.FieldCount-1 do
Вы все данные переносите в TMemo - зачем?
Если есть ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste, то откуда данные берутся?

[SpyCrypt]

Спасибо, разобрался наконец то))))

[Lady Meri]

а почему у меня ошибку выдает ExcelApp := CreateOleObject('Excel.Application' );

[OlegVE]

Сообщение от Lady Meri

а почему у меня ошибку выдает ExcelApp := CreateOleObject('Excel.Application' );

В uses добавили ComObj?

[Lady Meri]

теперь есть *)