delphi 在TUniMemo中复制和粘贴选定的文本

uses Clipbrd;

procedure TMainForm.UniButton3Click(Sender: TObject);

begin

Clipboard.AsText:=UniMemo1.Text;

end;