richEdit如何合并行？(100分)

各位高手，我的问题是这样：
我有两个RichEdit，内有带格式的文本。现在，我要把一个Richedit中的文本按格式复制到另一个Richedit中，如何做？
我使用CopytoClipboard方法，发现特别容易死机，我希望是更好的方法，谢谢。
问题来源：
将Richedit中的格式数据发送给网上另一客户，另一客户使用Lines.LoadFromStream，可以将文本显示到Richedit中，我于是CopyToclipBoard复制到剪帖板，然后调用另一个RichEdit.PastFromClipBoard方法，希望将文本按格式复制到另一RichEdit中，结果，10次有9次死机。郁闷。
有人告诉我死机的可能原因吗？

d

var
ms: TmemoryStream;
begin
ms:=TmemoryStream.Create;
try
ms.Position:=0;
Richedit1.Lines.SaveToStream(ms);
//Richedit1 存到流
//
ms.Position:=0;
RichEdit2.Lines.LoadFromStream(ms);
//RichEdit2 读入流
finally
ms.free;
end;
end;

to: gxw
RichEdit2.Lines.LoadFromStream(ms)后，RichEdit2中原来的行还在吗？，我需要合并不是替换啊