procedure TForm.BitBtn6Click(Sender: TObject);
var
XL, XArr: Variant;
i: Integer;
j: Integer;
begin
XArr:=VarArrayCreate([1,DM.ADOQuery1.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application');     // Создание OLE объекта
XL.WorkBooks.add;
XL.visible:=true;

j := 1;
DM.ADOQuery1.First;
while not DM.ADOQuery1.Eof do
 begin
  i:=1;
  while i<=DM.ADOQuery1.FieldCount do
   begin
    XArr[i] := DM.ADOQuery1.Fields[i-1].Value;
    i := i+1;
   end;
  XL.Range['A'+IntToStr(j),CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;
  DM.ADOQuery1.Next;
  j:=j+1;
 end;
XL.Range['A1',CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].select;

XL.Selection.Font.Name:='Arial';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Selection.HorizontalAlignment:=2;
XL.Selection.Borders.LineStyle:=2;
end;

XL.Range['A1',CHR(64+DM.ADOQuery1.FieldCount)+IntToStr(j)].select;

var
   ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;
   TemplateFile : String;
   BeginCol, BeginRow, i, j : integer;
   RowCount, ColCount : integer;
begin
 // Координаты левого верхнего угла области, в которую будем выводить данные
 BeginCol := 1;
 BeginRow := 5;

 // Размеры выводимого массива данных
 RowCount := 100;
 ColCount := 50;

 // Создание Excel
 ExcelApp := CreateOleObject('Excel.Application');

 // Отключаем реакцию Excel на события, чтобы ускорить вывод информации
 ExcelApp.Application.EnableEvents := false;

 //  Создаем Книгу (Workbook)
 //  Если заполняем шаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');
 Workbook := ExcelApp.WorkBooks.Add;

 // Создаем Вариантный Массив, который заполним выходными данными
 ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

 // Заполняем массив
 for I := 1 to RowCount do
   for J := 1 to ColCount do
     ArrayData[I, J] := J * 10 + I;

 // Левая верхняя ячейка области, в которую будем выводить данные
 Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
 // Правая нижняя ячейка области, в которую будем выводить данные
 Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol +
 ColCount - 1];

 // Область, в которую будем выводить данные
 Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];

 // А вот и сам вывод данных
 // Намного быстрее поячеечного присвоения
 Range.Value := ArrayData;

 // Делаем Excel видимым
 ExcelApp.Visible := true;