O objeto global Clipboard pode ser usado para fazer a 
transferência de dados entre a Área de Transferência e seu
aplicativo. Veja o exemplo:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Clipboard.AsText := Edit1.Text;
end;