Вывод отчета из Delphi в Excel через ADOQuery

var
Index: Integer;
Excel,Sheet: Variant;
begin
  Excel := CreateOleObject('Excel.Application');
  Excel.Application.EnableEvents := false;
  Excel.Workbooks.Open(GetCurrentDir() + '\Тесты.xlsx');
  Excel.Visible := true;
  Sheet:=Excel.WorkBooks[1].WorkSheets['Отчет'];
  Excel.Range['A5']:='№';
  Excel.Range['B5']:='Наименование закупки';
  Excel.Range['C5']:='Сумма';
  Excel.Range['E5']:='Количество';
  Excel.Range['F5']:='Номер расхода';
  Excel.Range['G5']:='Номер вида расходов';
  Excel.Range['H5']:='Дата закупки';
  Excel.Range['C1']:=dbeNumber.Text;
  Excel.Range['A18']:='Сотрудник: ' + dblLN.Text + '  ' +dblFN.Text + '  ' + dblPat.Text;
  Index:=6;//строчка, с которой начинается заполнение
   with DM.Query do begin //первая строчка в таблице
   repeat
   DM.Query.First;
   Sheet.Cells[Index,1]:= DM.Query.Fields.Fields[0].AsString;
   Sheet.Cells[Index,2]:= DM.Query.Fields.Fields[1].AsString;
   Sheet.Cells[Index,3]:= DM.Query.Fields.Fields[2].AsString;
   Sheet.Cells[Index,4]:= DM.Query.Fields.Fields[3].AsString;
   Sheet.Cells[Index,5]:= DM.Query.Fields.Fields[4].AsString;
   Sheet.Cells[Index,6]:= DM.Query.Fields.Fields[5].AsString;
   Sheet.Cells[Index,7]:= DM.Query.Fields.Fields[6].AsString;
   Inc(Index);//следующая строка в таблице
   DM.Query.Next;
   until eof
  Excel.Application.Quit;
end;