Склеить несколько файлов в один

uses
  System.Classes, System.SysUtils;

procedure MergeFiles(const SourceFiles: array of string; const DestinationFile: string);
var
  DestStream: TFileStream;
  SrcStream: TFileStream;
  Buffer: array[0..4095] of Byte; // Буфер для чтения
  BytesRead: Integer;
  FileName: string;
begin
  // Создаем поток для файла назначения
  DestStream := TFileStream.Create(DestinationFile, fmCreate);
  try
    for FileName in SourceFiles do
    begin
      // Открываем каждый исходный файл для чтения
      SrcStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
      try
        // Копируем содержимое исходного файла в файл назначения
        repeat
          BytesRead := SrcStream.Read(Buffer, SizeOf(Buffer));
          if BytesRead > 0 then
            DestStream.Write(Buffer, BytesRead);
        until BytesRead = 0;
      finally
        SrcStream.Free;
      end;
    end;
  finally
    DestStream.Free;
  end;
end;

procedure TestMergeFiles;
begin
  // Объединяем файлы file1.txt, file2.txt, и file3.txt в result.txt
  MergeFiles(['file1.txt', 'file2.txt', 'file3.txt'], 'result.txt');
end;

begin
  try
    TestMergeFiles;
    Writeln('Файлы успешно объединены!');
  except
    on E: Exception do
      Writeln('Ошибка: ', E.Message);
  end;
end.