把字符串复制到剪贴板

uses Clipbrd;

Clipboard.SetTextBuf(PChar(str));