Código Delphi [-] uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Edit1.Text; end;
uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Edit1.Text; end;