Вывод нескольких таблиц из DataSet в документ Excel

unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, CheckLst, Buttons, DB, ADODB, RpRave,
  RpDefine, RpCon, RpConDS;
 
type
  TReporting = class(TForm)
    CheckListBox1: TCheckListBox;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Reporting: TReporting;
  count, n : integer;
  id : array[1..100] of integer;
  fio : array[1..100] of string;
  XL : Variant;
 
implementation
uses Unit1, Math, ComObj, DBGrids;
{$R *.dfm}
 
procedure CreateEXL(Vis : Boolean);
begin
 
  XL := CreateOleObject('Excel.Application');  // создание документа Excel
  XL.WorkBooks.Add; // добвление документа
  XL.Visible := Vis;  // видимость
  n := 2;
 
end;
 
procedure ToExcell(ADODataSet1 : TADODataSet);
var
    k, m : integer;
    XArray : Variant;
 
begin
  XArray := VarArrayCreate([1, ADODataSet1.FieldCount], varVariant); // создаем вариантный массив для щаполнения данными
  ADODataSet1.First; // курсор на начало таблицы из базы данных
  While (not ADODataSet1.Eof) do   // пока не закончится таблица в базы данных
  begin
    k := 1; //  столбец в таблице
    m := ADODataSet1.FieldCount;
    while (k <= m) do    // пока к лежит в диапазоне между первым и последним столбцом в таблице бд
    begin
      XArray[k] := ADODataSet1.Fields[k-1].Value; // элемент массива со столбцами получает значение столбца из таблиц
      k := k + 1; // счетчик перемещения по столбцам
    end;
    XL.Range['A' + IntToStr(n), CHR(64 + m) + IntToStr(n)].Value := XArray;
    ADODataSet1.Next;
    n := n + 1; // перемещение по строкам, для последующих добавлений полей в документ экселя
  end;
  n := n + 1; // добавляем пустую строку для того, чтобы записать в них имя сотрудника
  XL.Range['A1', CHR(64 + ADODataSet1.FieldCount) + IntToStr(n)].Select;
  XL.Selection.Columns.AutoFit;  // автоматическое выравнивание ячеек по содержимому
  XL.Range['A1', 'A1'].Select;  // установка закрепления области на активном листе Excel
  XL.DisplayAlerts := false;  // чтобы не выходил вопрос о сохранении документа Excel
  XL.WorkBooks[1].WorkSheets[1].Name := 'Отчет1'; // задание названия листа в документе Excel
end;