Объединить файлы

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
  TFileHeader = record
    Name: String[50];
    Size: Int64;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure SaveFile(AFileName: String; APartName: String; ASource: TStream);
var F: TFileStream;
    H: TFileHeader;
begin
  if not FileExists(AFileName) then
    F := TFileStream.Create(AFileName, fmCreate)
 
  else
    begin
      F := TFileStream.Create(AFileName, fmOpenReadWrite);
      F.Seek(0, soFromEnd)
    end;
 
  H.Name := ShortString(APartName);
  H.Size := ASource.Size;
 
  F.WriteBuffer(H, SizeOf(H));
 
  F.CopyFrom(ASource, ASource.Size);
 
  FreeAndNil(F);
end;
 
procedure LoadFile(AFileName: String);
var F: TFileStream;
    M: TMemoryStream;
    H: TFileHeader;
    i: Int64;
begin
 
  F := TFileStream.Create(AFileName, fmOpenRead);
 
  F.Seek(0, soFromBeginning);
  i := 0;
 
  while F.Position <= F.Size - 1 do
    begin
      F.ReadBuffer(H, SizeOf(H));
 
      M := TMemoryStream.Create;
 
      M.CopyFrom(F, H.Size);
      M.SaveToFile('C:\__' + IntToStr(i) + String(H.Name)); // тут распаковку, как душа пожелает )
 
      FreeAndNil(M);
      i := i + 1;
    end;
 
  FreeAndNil(F);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var F: TFileStream;
begin
  // тут к примеру можно через OpenDialog добавление сделать... или как душа пожелает )
  F := TFileStream.Create('C:\111.txt', fmOpenRead);
  SaveFile('C:\123.qqq', '111.txt', F);
  FreeAndNil(F);
 
  F := TFileStream.Create('C:\123.mp3', fmOpenRead);
  SaveFile('C:\123.qqq', '123.mp3', F);
  FreeAndNil(F);
 
  F := TFileStream.Create('C:\asdf.jpg', fmOpenRead);
  SaveFile('C:\123.qqq', 'asdf.jpg', F);
  FreeAndNil(F);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  LoadFile('C:\123.qqq');
end;
 
end.

  fs1 := TFileStream.Create('file.123', fmOpenWrite);
  fs2 := TFileStream.Create('1.mp3', fmOpenRead);
  f := fs2.Size;
  fs1.Write(f, SizeOf(Int64));
  fs1.CopyFrom(fs2, f);
  fs2.Free;

M.SaveToFile('C:\__' + IntToStr(i) + String(H.Name));

TFileStream.Create(AFileName, fmOpenRead);

CopyFrom(F, H.Size);

M:=TFileStream.Create(AFileName, fmOpenRead);
F.ReadBuffer(H, SizeOf(H));
M.CopyFrom(F, H.Size);
FreeAndNil(M);

  fs1 := TFileStream.Create('file.123', fmOpenWrite);
  fs2 := TFileStream.Create('1.mp3', fmOpenRead);
  f := fs2.Size;
  fs1.Write(f, SizeOf(Int64));
  fs1.CopyFrom(fs2, f);
  fs2.Free;
 
  fs1 := TFileStream.Create('file.123', fmOpenRead);
  fs2 := TFileStream.Create('1.mp3', fmOpenWrite);
  fs1.Read(f, SizeOf(Int64));
  fs1.CopyFrom(fs2, f);
  fs2.Free;

procedure LoadFile(AFileName: String);
var F: TFileStream;
    M: TFileStream;
    H: TFileHeader;
    i: Int64;
begin
 
  F := TFileStream.Create(AFileName, fmOpenRead); // общий файл, в который все остальное упакованно
 
  F.Seek(0, soFromBeginning);
  i := 0;
 
  while F.Position <= F.Size - 1 do
    begin
      F.ReadBuffer(H, SizeOf(H));
 
      M := TFileStream.Create('C:\__' + IntToStr(i) + String(H.Name), fmCreate); // файл, который будет "извлечен" из упакованного
 
      M.CopyFrom(F, H.Size);
      //M.SaveToFile('C:\__' + IntToStr(i) + String(H.Name)); // тут распаковку, как душа пожелает )
 
      FreeAndNil(M);
      i := i + 1;
    end;
 
  FreeAndNil(F);
end;