экспорт бд в шаблон excel

[Максон11]

Доброго дня, уважаемые форумчане!
Прошу помощи в сложившейся ситуации. Имеется бд, и по нажатию кнопки данные экспортируется в шаблон excel.
Вот пример кода

var
i,j, index: Integer;
ExcelApp,sheet: Variant;



begin

ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0 ))+'reestr\reestrOB.xls');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'реестр';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['реестр'];
index:=11; //здесь выбираю номер строки в экселе с которой надо заполнять
for i:=1 to form6.DBGrid1.DataSource.DataSet.RecordCount do
begin

for j:=1 to form6.DBGrid1.FieldCount do
sheet.cells[index,8]:=form6.DBGrid1.fields[2].asstring;
sheet.cells[index,5]:=form6.DBGrid1.fields[0].asstring;
sheet.cells[index,2]:=form6.DBGrid1.fields[1].asstring;



//НУМЕРАЦИЯ СТРОК ИЗ БД
sheet.cells[index, 1]:=i;//проставляем в цикле в 1-ю колонку


inc(index);
form6.DBGrid1.DataSource.DataSet.Next;
end;

При выполнении он просто экспортирует данные без добавления строк. Как быть?
Убедительная просьба не отсылать "пользоваться поиском по форуму", т.к. сильно ограничен во времени.
Ниже представлены файлы, который формируется при компиляции вышеописанного кода, а второй - который должен получаться.