Записать данных из нескольких файлов Excel в одну таблицу

function TForm1.ProcBook(const aExApp : OleVariant; const aFileName : String;
  const aTableName : String; aTblNames : TStrings) : Boolean;
var
  exBook, exSh : OleVariant;
  Arr : TArr;
  i, ErrCode : Integer;
  Path : String;
begin
  Result := False;
  //Путь к директорию, в котором лежит исполняемый файл программы.
  Path := ExtractFilePath(ParamStr(0));
  Arr := nil;
  try
    try
      //Открываем рабочую книгу и получаем ссылку на её интерфейс.
      exBook := aExApp.Workbooks.Open(FileName:=aFileName);
      //Получаем ссылку на интерфейс первого листа рабочей книги.
      exSh := exBook.Worksheets[1];
      //Получаем с листа MS Excel все данные из нужных колонок.
      Arr := ExRangeToDArr(exSh, 2, 1, 0, 0);
        
      //Если таблица уже существует, то удаляем её.
      if aTblNames.IndexOf(aTableName) > -1 then
      try
        ADOQuery1.SQL.Text := 'DROP TABLE [' + aTableName + ']'; //SQL запрос для удаления таблицы.
        ADOQuery1.ExecSQL;
      except
      end;
 
     ... 
      //Запускаем транзакцию.
      ADOConnection1.BeginTrans;
      //Из данных массива Arr формируем пакет для записи в базу данных.
      for i := 0 to High(Arr) do
      begin
        //SQL команда для вставки данных в таблицу.
        ADOQuery1.SQL.Text := 'INSERT INTO [' + aTableName + ']'
          + ' VALUES (:ПОЛЕ, :ПОЛЕ1, :ПОЛЕ2, :ПОЛЕ3 );';
...

if ADOQuery1.ExecSQL({ADOQuery1.SQL.Text->UpdateCommandText}) = 0 then
   ADOQuery1.ExecSQL({ADOQuery1.SQL.Text->InsertCommandText});

function TForm1.ProcBook(const aExApp : OleVariant; const aFileName : String;
  const aTableName : String; aTblNames : TStrings; const aDrop : Boolean) : Boolean;
...
begin
...
      //Если есть разрешение на удаление (первый запуск) и таблица уже существует, то удаляем её.
      if aDrop and (aTblNames.IndexOf(aTableName) > -1) then
      try
        ADOQuery1.SQL.Text := 'DROP TABLE [' + aTableName + ']'; //SQL запрос для удаления таблицы.
        ADOQuery1.ExecSQL;
      except
      end;
...
end;

//SQL команда для вставки данных в таблицу.
        ADOQuery1.SQL.Text := 'INSERT INTO NEW_TABLE' ..

//{ Драйвер Microsoft.Jet.OLEDB.4.0/Microsoft.ACE.OLEDB.12.0
  ADOConnection1.ConnectionString :=
   'Provider=Microsoft.Jet.OLEDB.4.0;'
    + 'Data Source="' + Path + gPathDBase + '";'
    + 'Extended Properties="dBASE III;User ID=;Password=;";'
    ;

 ADOQuery1.SQL.Text := 'INSERT INTO Table.dbf'
          + ' VALUES (:POLE1, :POLE2, :POLE3, :POLE4);';