procedure TSysQueryForm.ExcelExportItemClick(Sender: TObject);

function xlR1C1ColToA1Col(C: Integer): string;
const
  ABC: array [0..26] of Char = 'ZABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
  if C < 27 then Result := ABC[C]
            else Result := ABC[(C - 1) div 26] + ABC[C mod 26];
end;

function ColumnsRange(BegC, EndC: Integer): string;
begin
  if (BegC > 0) and (EndC > 0) then
    Result := xlR1C1ColToA1Col(BegC) + ':' + xlR1C1ColToA1Col(EndC)
  else
    raise Exception.Create(Format('Ошибка преобразования столбцового диапазона: нулевой столбец или строка [%d,%d]', [BegC, EndC]));
end;

var
  ExcelApp: OleVariant;
  WorkBook, DataArray, BegCell, EndCell, Range: Variant;
  RowCount, ColCount, Row, Col: Integer;
  RangeRef: string;
  UseTemplate: Boolean;
begin
  ExcelApp := CreateOleObject('Excel.Application');
  ExcelApp.Application.EnableEvents := False;
  Workbook := ExcelApp.WorkBooks.Add;

  RowCount := qrSysQuery.RecordCount;
  ColCount := QueryGrid.Columns.Count;

// заголовки полей
  Row := 1;
  DataArray := VarArrayCreate([1, RowCount + Row, 1, ColCount], varVariant);
  for Col := 1 to ColCount do
    DataArray[Row, Col] := QueryGrid.Columns[Col - 1].Title.Caption;
  end;

// собственно данные
  with qrSysQuery do begin
    First;
    while not EOF do begin
      Inc(Row);
      for Col := 1 to ColCount do DataArray[Row, Col] := QueryGrid.Columns[Col - 1].Field.asString;
      Next;
    end;
  end;

// определение границ диапазона
  BegCell := WorkBook.WorkSheets[1].Cells[1, 1];
  EndCell := WorkBook.WorkSheets[1].Cells[RowCount + 1, ColCount];
  Range := WorkBook.WorkSheets[1].Range[BegCell, EndCell];
  Range.NumberFormat := '@';

// собственно пересылка данных в Excel
  Range.Value := DataArray;

  WorkBook.WorkSheets[1].Columns[ColumnsRange(1, ColCount)].AutoFit;

  ExcelApp.Visible := True;
end;

uses Excel2000;

procedure TForm1.Button1Click(Sender: TObject);

  procedure CopyFromDataSet(ASheet: _WorkSheet; DataSet: TDataSet);
  var
    R, C: Integer;
    vData: Variant;
  begin
    DataSet.Last; // спецом для IBX
    // строки на одну больше чем в датасете для шапки
    vData := VarArrayCreate([0, DataSet.RecordCount, 1, DataSet.FieldCount], varVariant);
    for C := 0 to DataSet.FieldCount - 1 do
      vData[0, C + 1] := DataSet.Fields[C].DisplayLabel;
    DataSet.First;
    R := 1;
    while not DataSet.Eof do begin
      for C := 0 to DataSet.FieldCount - 1 do
        vData[R, C + 1] := DataSet.Fields[C].Value;
      Inc(R);
      DataSet.Next;
    end;
    with ASheet do Range['A1',
      Cells.Item[DataSet.RecordCount + 1, DataSet.FieldCount]].Value := vData;
    vData := Unassigned;
    with ASheet do Range['A1',
      Cells.Item[1, DataSet.FieldCount]].Interior.ColorIndex := 15;
    with ASheet do Range['A1',
      Cells.Item[DataSet.RecordCount + 1, DataSet.FieldCount]].Borders.Weight := xlHairline;
  end;

var
  XL: TExcelApplication;
begin
  XL := TExcelApplication.Create(Self);
  try
    XL.Connect;
    XL.Workbooks.Add(EmptyParam, lcid); // добавим пустую книгу
    XL.Visible[lcid] := True;
    CopyFromDataSet(XL.ActiveWorkbook.ActiveSheet as _Worksheet, DM1.tblCustomers);
  finally
    XL.UserControl := True;
    XL.Free;
  end;
end;