richedit的插入问题

Question

现有richedit1和richedit2
（1）在不使用剪贴板的情况下，将richedit1的所有内容插入到richedit2的指定位置（光标位置）。
（2）新插入的一段文字能保留其在richedit1中的格式。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
    RichEdit1.SetFocus;
    RichEdit1.SelectAll;
    RichEdit1.CopyToClipboard;
    RichEdit2.SetFocus;
    RichEdit2.PasteFromClipboard;
end;

Answer 2

最简单的：
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to Memo1.Lines.Count-1 do
        Memo2.SelText:=Memo1.Lines.Strings[i]+#13#10;
end;