pt 

DoGetText (TfpgGDIClipboard)

pt 

DoSetText (TfpgGDIClipboard)

pt 

InitClipboard (TfpgGDIClipboard)