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:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

    FileList     :  ARRAY[1..5] OF STRING = ('1.k', '2.k', '3.k', '4.k', '5.k');
    CombinedFile =  'Combined.DAT';

procedure TForm1.Rebuild;
VAR
    i       :  INTEGER;
    s       :  ARRAY[1..5] OF STRING;
    size    :  INTEGER;
    Stream  :  TMemoryStream;

begin
  FOR i := Low(FileList) TO High(FileList) DO
  BEGIN
    // Load files into strings
    IF   FileExists(FileList[i])
    THEN BEGIN
      Stream := TMemoryStream.Create;
      TRY
        Stream.LoadFromFile(FileList[i]);
        SetLength(s[i], Stream.Size);
        Stream.Read(s[i][1], Stream.Size)
      FINALLY
        Stream.Free
      END

    END
    ELSE s[i] := '';
  END;
  // Save strings to single binary file
  DeleteFile(CombinedFile);
  Stream := TMemoryStream.Create;
  TRY
    FOR i := Low(s) TO High(s) DO
    BEGIN
      size := LENGTH(s[i]);
      Stream.Write(size, SizeOf(size));
      Stream.Write(s[i][1], size);
    END;

    Stream.SaveToFile(CombinedFile)
  FINALLY
    Stream.Free
  END;
  end;					

1:

Stream.Write(s[i][1], size);					

1:

Stream.Write(pointer(s[i])^, size);