Delphi - stream

se io sto in questa situazione:

var  stream1,stream2: tmemoryStream;

begin
 stream1:=TMemoryStream.Create;
 stream2:=TMemoryStream.Create;

 richedit1.lines.savetostream(stream1);
 richedit2.lines.savetostream(stream2);

end;

dopo come faccio, per esempio, a mettere in un altra variabile di tipo tmemorystream il contenuto della variabile stream1 più il contenuto della variabile stream2 senza che la seconda cancelli la prima??????????

Guarda se c'è qualche metodo "append" che ti permette di aggiungere i bytes alla fine... oppure avvii un ciclo che legge i bytes dal primo stream e li inserisce nel secondo... in ogni caso guarda la documentazione di TMemoryStream.