Из DBGrid в Excel

[fr0z3n]

Решил сделать экспорт данных DBGrid'а в Excel, код написал, работает, но почему-то не отображается название последнего столбца, а если поколдовать с кодом, название последнего вывести можно, но тогда пропадает название первого, в чем косяк?

procedure TForm1.Button13Click(Sender: TObject);
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := true;
ExcelApp.WorkBooks.Add(-4167);
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Report';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['Report'];
index:=2;
//Здесь я пробовал изменять все что можно, получал ошибку OLE error 800a03ec или Argument out of range
for i := 1 to ADOQuery1.FieldCount-1 do
sheet.cells[1, i]:= ADOQuery1.Fields[i-1].DisplayName; // Если здесь в ADOQuery1.Fields[i-1].DisplayName 
//поставить просто i, то он будет выводить название последнего столбца, но уже не будет выводить 
//название первого.
ADOQuery1.First;
for i:=1 to ADOQuery1.RecordCount do
begin
for j:=1 to ADOQuery1.FieldCount do
sheet.cells[index,j]:=ADOQuery1.fields[j-1].asstring;
inc(index);
ADOQuery1.Next;
end;
end;

[Аватар]

Последний цикл по полям правильно, почему предыдущий по полям не так сделан?

[fr0z3n]

Сообщение от Аватар

Последний цикл по полям правильно, почему предыдущий по полям не так сделан?

ради одной строки?(с названиями столбцов) или я что-то не врубаюсь...

PS: я Вас понял, спасибо за помощь! работает!