问一个简单的复制函数(50分)解决办法

问一个简单的复制函数(50分)
edit1.text:='要复制内容';

按下button1后--将edit1.text内容复制起来---然后我要CTRL+V可以粘帖出来的

------解决方案--------------------
Clipboard.AsText:= edit1.text;

------解决方案--------------------
http://topic.csdn.net/t/20020326/20/601900.html
------解决方案--------------------
先定义一个全局变量X，定义如下，按F12，后在{$R *.dfm}下：
var x:string;
后在buttion1单击事件下：
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:=s;//将要复制的内容存于S中
end;

end.
在edit2的onkeypress中写代码：
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key in [VK_CTRL,V] then 
edit2.text:=s;
end;

end.
按ctrl和v时，将要复制的内容写于EDIT2中