Delphi操作剪贴板

uses Clipbrd;

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