Código Delphi [-] uses clipbrd; ... begin Clipboard.AsText := Edit1.Text; end;
uses clipbrd; ... begin Clipboard.AsText := Edit1.Text; end;