Выгрузка из DBGrid в Excel

[Nika03]

Помогите разобраться с кодом:

procedure TForm5.SpeedButton3Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Inv');
ExcelApp.Visible := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Отчет1';
for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row+1;
end;
ExcelApp.Visible := True;
end;

Все работает,только вместо моих значений DBGrid -2? таблица, из одних двоек...

[vovk]

на вскидку

// надо текушую запись менять а тут этого не происходит, да и записи не с "0" а с "1"
//for row :=0 to DBGrid1.DataSource.DataSet.RecordCo unt-1 do
// мне тут больше while нравится

row:=1;
While not DBGrid1.DataSource.DataSet.Eof do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,col+2].value:=dbgrid1.DataSource.DataSet. Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+7,1]:=row;
end;
DBGrid1.DataSource.DataSet.Next;
inc(row)
end;
ExcelApp.Visible := True;