[Dux]

Для вывода в Excel попробуйте следующий код:

Код:

var
  XL, XArr: Variant;
  j,i: Integer;
begin

  // Создаем массив элементов, полученных в результате запроса
  XArr := VarArrayCreate([1, ADOQuery1.FieldCount], varVariant);
  XL := CreateOLEObject('Excel.Application'); // Создание OLE объекта
  XL.WorkBooks.add;
  XL.visible := true;

   j := 1; // Отступаем 1 строчку
  ADOQuery1.First;
   while not ADOQuery1.Eof do
    begin
       i := 1;
        while i <= ADOQuery1.FieldCount do
         begin
          XArr[i] := ADOQuery1.Fields[i - 1].Value;
          i := i + 1;
         end;

     XL.Range['A' + IntToStr(j),
     CHR(64 + ADOQuery1.FieldCount) + IntToStr(j)].Value := XArr;
     ADOQuery1.Next;
     j := j + 1;
    end;
    end;