TfpgGDIClipboard

pt 

DoGetText

pt 

DoSetText

pt 

InitClipboard