Hola.
Debes tener un
TForm con un
TMemo que será quién reciba el texto copiado en el portapapeles, también debes incluir la unidad
Clipbrd en la parte de interface o implementation.
Las cabeceras de los métodos
OnCreate y
OnDestroy del formulario son generados desde el
Object Inspector de forma visual por
Delphi, copia el código correspondiente en cada uno.
La variable privada
FChgHwnd y las definiciones de los métodos privados
WMDrawClipboard y
WMChangeCBChain debes copiarlos tal como estan en la parte private de tu TForm.
Estando al final del segundo método presionar la secuencia de teclas
Ctrl+Shift+C para que Delphi te genere automáticamente las cabeceras por último copia el código que corresponda a cada uno de ellos.
El funcionamiento está basado en enviar y escuchar mensajes hacia y desde el portapapeles, te pongo unos enlaces a documentación:
El código es muy conocido y vas a encontrar muchas variantes y explicaciones navegando.
Saludos.