ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=DBF;Extended Properties="DSN=DBF;UID=;SourceDB=С:\DBF;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"'

select * from  1 \a.dbf 
union all
select * from  2 \a.dbf
union all
select * from  3 \a.dbf
union all
...
union all
select * from  12 \a.dbf

procedure TForm1.Button1Click(Sender: TObject);
var fIn: File;
    fOu: File;
    iFileSize   : longint;
    iRecCount   : longint;
    wBegDate    : word;
    wRecSize    : word;
    iNumRead    : integer;
    iNumWritten : integer;
    Buf         : array [ 0 .. 65535 ] of byte;

begin
  // открываем файл для объединенного DBF
  AssignFile(fOu, 'C:\DBF\merge.dbf');
  ReWrite(fOu,  1 );

  { переписываем первый файл в объединенный DBF }
  AssignFile(fIn, 'C:\DBF\1\A.dbf');
  Reset (fIn,  1 );

  // начало первой записи данных в файле (только для первого файла)
  Seek(fIn,  8 );
  BlockRead(fIn, wBegDate,  2 , iNumRead);

  // длина записи данных в файле (только для первого файла)
  Seek(fIn,  10 );
  BlockRead(fIn, wRecSize,  2 , iNumRead);

  // вернемся в начало исходного файла
  Seek(fIn,  0 );

  // записываем в DBF файл слияния заголовок (только для первого файла)
  BlockRead(fIn, Buf, wBegDate, iNumRead);
  BlockWrite(fOu, Buf, wBegDate, iNumWritten);

  // переписываем данные в объединеный DBF файл по одной записи
  repeat
    BlockRead(fIn, Buf, wRecSize, iNumRead);
    if iNumRead = wRecSize then
      BlockWrite(fOu, Buf, wRecSize, iNumWritten);
  until (iNumRead <> wRecSize) or (iNumWritten <> iNumRead);

  CloseFile(fIn);
  {= обработка первого исходного файла завершена =}

  { переписываем данные второго файла в объединенный DBF }
  AssignFile(fIn, 'C:\DBF\2\A.dbf');
  Reset (fIn,  1 );

  // переходим на первую запись исходного файла
  Seek(fIn, wBegDate);

  // переписываем данные в объединеный DBF файл по одной записи
  repeat
    BlockRead(fIn, Buf, wRecSize, iNumRead);
    if iNumRead = wRecSize then
      BlockWrite(fOu, Buf, wRecSize, iNumWritten);
  until (iNumRead <> wRecSize) or (iNumWritten <> iNumRead);

  CloseFile(fIn);
  {= обработка второго исходного файла завершена =}

  { завершающие штрихи формирования объединенного DBF }

  // записываем в объединенный DBF последний байт
  iFileSize := $1a;
  BlockWrite(fOu, iFileSize,  1 , iNumWritten);

  CloseFile(fOu);

  // открываем объединенный DBF для корректировки заголовка
  Reset(fOu,  1 );

  // расчитываем число записей в объединенном DBF
  iFileSize := FileSize(fOu);                            // размер файла
  iRecCount := (iFileSize - wBegDate -  1 ) div wRecSize;  // число записей

  // исправлям число записей в заголовке объединенного DBF
  Seek(fOu,  4 );
  BlockWrite(fOu, iRecCount,  4 , iNumWritten);

  CloseFile(fOu);

end;