如何将多种文件集成在一个流中，并读出

Question

不知道有什么意义？，将两个memo集成在一个流中，并保存；
procedure WriteLog(firstMemo, lastmemo: TMemo; fileName: string='memo.txt');
var
  MemoFile: TFileStream;
  OpenType: integer;
  CopyMemo: TMemoryStream;
begin
  fileName := ExtractFilePath(Application.ExeName)+filename;
  CopyMemo := TmemoryStream.Create;
  if FileExists(fileName) then
    OpenType := fmOpenReadWrite
  else
    OpenType := fmCreate;
  MemoFile := TFileStream.Create(fileName, OpenType);
  firstMemo.Lines.SaveToStream(CopyMemo);
  CopyMemo.Position := 0;
  MemoFile.Seek(0, soFromEnd);
  MemoFile.CopyFrom(CopyMemo, CopyMemo.Size);
  MemoFile.Seek(0, soFromEnd);
  lastMemo.Lines.SaveToStream(CopyMemo);
  CopyMemo.Position := 0;
  MemoFile.CopyFrom(CopyMemo, CopyMemo.Size);
  CopyMemo.Free;
  MemoFile.Free;
end;

Answer 1

我有点不明白，文件不是都可以看成是流吗？那么不是可以合并在一块吗？记住位置就可以了。
我可是比较菜的哟。