[jachguate]

Otro método:

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

Hasta luego.