CLIPBOARD NO DELPHI (COPIAR E COLAR)

DECLARE A BIBLIOTECA "ClipBrd" NA CLÁUSULA "USES"

COPIANDO O TEXTO DO COMPONENTE EDIT1 (NO BOTÃO "BtCtrlC")

procedure TForm1.BtCtrlCClick(Sender: TObject);

begin

     ClipBoard.AsText := Edit1.Text;

end;

COLANDO O TEXTO  COPIADO NO COMPONENTE EDIT2 (BOTÃO "BtCtrlV")

procedure TForm1.BtnCtrlVClick(Sender: TObject);

begin

     Edit2.Text :=  Clipboard.AsText;

end;