想要在Delphi程式中簡單的操作系統的剪貼簿，可以使用下列方法：

1
2
3
4
5
uses Clipbrd;
procedure TForm1.btnCopyClick(Sender: TObject);
begin
  Edit1.CopyToClipboard;//將 Edit1 的文字複製到剪貼簿
  Clipboard.AsText := Edit1.Text;
1
2
3
4
//同樣將 Edit1 的內容複製到剪貼簿(需要 uses Clipbrd;)
  Edit2.PasteFromClipboard;//將剪貼簿內容複製到 Edit2
  Clipboard.Clear;//清空剪貼簿(需要 uses Clipbrd;)
end;