В DELPHI 7 с Excel

procedure ReportsInExcel(Grid : TDBGrid; XLApp:TExcelApplication; const Title: String = '');
var
  WB: _WorkBook;
  WS: _WorkSheet;
  R: ExcelRange;
  i,j, MaxR, MaxC, C: LongInt;
  ColName: Char;
  Tbl: Variant;
  Bm: Pointer;
begin
  c := 0;
  Screen.Cursor:=crHourGlass;
 
  MaxR:=Grid.DataSource.DataSet.RecordCount-1;
  MaxC:= frmDost.dbgDost.Columns.Count-1;
  Tbl:=VarArrayCreate([0,MaxR,0,MaxC+1],varVariant);
  Bm:=Grid.DataSource.DataSet.GetBookmark;
 
  Grid.DataSource.DataSet.DisableControls;
  Grid.DataSource.DataSet.First;
  for i:=0 to MaxR do begin
    C:=-1;
    for j:=0 to MaxC do begin
      if not frmDost.dbgDost.Columns[j].Visible then
        Continue;
      Inc(C);
      Tbl[i,C]:=frmDost.dbgDost.Columns[j].Field.Text;
    end;
    Grid.DataSource.DataSet.Next
  end;
  Grid.DataSource.DataSet.EnableControls;
  Grid.DataSource.DataSet.GotoBookmark(Bm);
 
  XLApp.Connect;
  XLApp.Workbooks.Add(xlWBatWorkSheet,0);
  WB:=XLApp.Workbooks.Item[1];
  WS:=WB.Worksheets[1] as _WorkSheet;
 
  R:=WS.Range['A1','G1'];
  R.Merge(False);
  R.Value2:=Title;
  R.Font.Bold:=True;
  R.Font.Size:=16;
  R.HorizontalAlignment:=xlCenter;
 
  ColName:='A';
  for j:=0 to MaxC do begin
    if not frmDost.dbgDost.Columns[j].Visible then
      Continue;
    R:=WS.Range[ColName+'3',ColName+'3'];
    R.Value2:= frmDost.dbgDost.Columns[j].Title.Caption;
    Inc(ColName);
  end;
 
  XLApp.Application.EnableEvents := false;
 
  WS.Range['A4',WS.Cells.Item[MaxR+4,C+1]].Value2 := Tbl;
 
  WS.Range['A3',WS.Cells.Item[MaxR+4,C+1]].Borders.LineStyle:=xlContinuous;
  WS.Range['A1',WS.Cells.Item[MaxR+4,C+1]].EntireColumn.AutoFit;
 
  XLApp.Visible[0]:=True;
  Tbl:=Unassigned;
  Screen.Cursor:=crDefault;
end;

      with ListView1.Items.Add do
        begin
          // первый столбец таблицы на форме
          Caption := ADOQuery1.Fields[1].Text;
          // 2,3,4,5... столбцы на форме
          for j := 2 to кол-во_результирующий_столбцов-1 do
            SubItems.Add(ADOQuery1.Fields[j].Text);
          //а можно и так:
          //SubItems.Add(ADOQuery1.FieldByName('имя_поля_в_таблице').Text);
        end;