[NumLock]

Код:

var
  filestream1: TFileStream;
  filestream2: TFileStream;
  filestreamout: TFileStream;
  stringstream: TStringStream;
begin
  filestream1:=TFileStream.Create('c:\windows\notepad.exe', fmOpenRead);
  filestream2:=TFileStream.Create('c:\windows\regedit.exe', fmOpenRead);
  filestreamout:=TFileStream.Create('c:\downloads\multifile.dat', fmCreate);
  stringstream:=TStringStream.Create('--delim--'#13#10);
  filestreamout.CopyFrom(filestream1, filestream1.Size);
  filestreamout.CopyFrom(stringstream, stringstream.Size);
  filestreamout.CopyFrom(filestream2, filestream2.Size);
  filestream1.Free;
  filestream2.Free;
  filestreamout.Free;
  stringstream.Free;
end;