有意思的剪贴板操作问题

Question

Form有Edit1,Edit2和Memo(TMemo)
将Edit1.Text + Edit2.Text加到Memo中，然后Memo.SelectAll, Memo.CopyToClipboard
如果Edit1或Edit2中有汉字（拷贝而来），则把剪贴板中内容粘贴到记事本中时为乱码。
如果汉字是输入的，则为正常。Delphi 6 + Windows 2000 Server

Answer 1

Memo.SelectAll
可能要操作lines

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := Edit1.Text + Edit2.Text;
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
end;
没任何问题啊！

Answer 3

Form有Edit1,Edit2和Memo(TMemo)
将Edit1.Text + Edit2.Text加到Memo中，然后Memo.SelectAll, Memo.CopyToClipboard
如果Edit1或Edit2中有汉字（拷贝而来），则把剪贴板中内容粘贴到记事本中时为乱码。
如果汉字是输入的，则为正常。
----->
从哪里拷贝而来?

Answer 4

To merkey2002(小样的)
比如从这个网页
To g961681(Cashier) 
1。程序刚启动就拷贝汉字到Edit1或Edit2，再执行Memo.Lines.Add,Memo.SelectAll和Memo.CopyToClipboard，再开一个记事本粘贴，得到乱码。
2。如果输入汉字，再执行后面操作，汉字显示正常。以后再重复1，汉字不再出现乱码。