Выгрузка 2-х таблиц в один документ Excel

String fXLS = ExtractFilePath(Application->ExeName) + String().sprintf("Отчёты\\Check\\Check_tpl.xls");
String fTPL = ExtractFilePath(Application->ExeName) + "Шаблоны//Check_tpl.xls";
Variant app, books, book, sheet, Rang, vCell, row;
app = CreateOleObject("Excel.Application");
books = app.OlePropertyGet("Workbooks");
books.OleFunction("Open", WideString(fTPL));
book = books.OlePropertyGet("item", 1);
sheet = book.OlePropertyGet("WorkSheets", 1);
vCell = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", 1, 1);
vCell.OlePropertySet("Value", WideString(Header));
const int bounds[4] = {0, ADOTable3->RecordCount, 0, ADOTable3->FieldCount};
Variant vData = VarArrayCreate(bounds, 3, varVariant);
String Dt = "Число, месяц, год: " + DateToStr(Now());
for (int column = 0; column < ADOTable3->FieldCount; ++column)
vData.PutElement(ADOTable3->Fields->Fields[column]->AsVariant, row, column);
Rang = sheet.OlePropertyGet("Range", sheet.OlePropertyGet("Cells", 7, 1),
sheet.OlePropertyGet("Cells", ADOTable3->RecordCount + 3,
ADOTable3->FieldCount));
Rang.OlePropertySet("Value", vData);
app.OlePropertySet("DisplayAlerts", false);
book.OleProcedure("SaveAs", WideString(fXLS));
app.OleProcedure("Quit");
Application->Title="Экспорт";
ShowMessage("Чек записан в файл " + fXLS);