不是有现成的剪贴板吗？
TCustomEdit.CutToClipBoard
TCustomEdit.CopyToClipBoard
TCustomEdit.PasteFromClipBoard
The following OnClick event handlers cut, copy, and paste selected text from a memo component to the Clipboard. These event handlers could be used on an Edit menu for the Cut, Copy, and Paste commands.
procedure TEditForm.CutToClipboard(Sender: TObject);
begin
Memo1.CutToClipboard;
end;
procedure TEditForm.CopyToClipboard(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;
procedure TEditForm.PasteFromClipboard(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
