Delphi 复制粘贴

 //需要用到Clipbrd,单元 //剪贴板的读写和清除功能
 Clipboard.SetTextBuf(PChar(edt5.Text)); //复制到剪切板

 edt1.Text:=(Clipboard.AsText);  //粘贴
 //===========================================

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