1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Procedure MergeTwoFiles (aFileName1, aFileName2, aDestFile : String);
Var
  fDest : TFileStream;

  Procedure _AddFile (Const aFileName : String);  // Eine Datei hinten ranhängen
  Var
    fSrc : TFileStream;
    iSize : Integer;

  Begin
    fSrc := TFileStream.Create (aFileName, fmOpenRead); // Datei zum Lesen öffnen
    Try
      iSize := fSrc.Size;
      fDest.Write (iSize, SizeOf (Integer));  // 4 Byte Länge schreiben
      fDest.Copy (fSrc,0); // Die ganze Datei schreiben
    Finally
      fSrc.Free;
    End;
  End;

Begin
  fDest := TFileStream.Create (aDestFile, fmCreate);
  Try
    _AddFile (aFileName1);  // Erste Datei
    _AddFile (afileName2);  // Zweite Datei
  Finally
    fDest.Free;
  End;
End;