Delphi操作剪贴板

uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Clipboard.AsText := Text; ShowMessage(Clipboard.AsText); {Form1}
end;