在delphi中怎么用命令来实施复制与张贴

在delphi中如何用命令来实施复制与张贴
如题！

[解决办法]
Memo1.SelectAll;
Memo1.CopyToClipboard;
Memo2.PasteFromClipboard;