delphi 类richedit 怎么把 一个richedit的带格式的字符串付给 另一个richedit(要保留格式）

急急急！！！ 急急急！！！！！！？？？？谢谢

第一种.复制
richedit1.SelectAll;
richedit1.CopyToClipboard;
richedit2.SelectAll;
richedit2.PasteFromClipboard;
第二种.
richedit1.lines.assign(richedit2.lines);

将richtext的内容读出来，转化为对字符串的查找操作了：var s,sresult:string;var bpos,epos:integer; begin s:=richtext1.text; bpos:=pos('select',s); epos:=pos('from',s); sresult:=copy(s,bpos+6,epos); end;