求教以下问题，非常感谢！

1. 创建一Label(或者Edit) 和 一个button
2. 如何实现通过这个button吧Label->Caption（或者Edit->Text）复制到剪贴板，然后可以直接Ctrl+V进行粘贴呢？？

尝试以下方式，调试可以过，但是ctrl+v 粘贴不出来 abc =_=#
if(OpenClipboard(NULL))
{
 char *p = "abc";
 EmptyClipboard();
 SetClipboardData(CF_TEXT,p);
 CloseClipboard();
 }

顶上去，烦请高手不吝帮忙，非常感谢！

你这个没有设置键盘ctrl+v来响应这个功能

你试一下这个，在键盘中按下ctrl+c  和crtl+v　实现黏贴和复制：
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
    if shift=[ssctrl] then
    if key=67 then
      memo1.copytoclipboard
    else if key=86 then
     memo1.pastefromclipboard;
end;