Destroy (TfpgGDIDrag)

Execute (TfpgGDIDrag)

pt 

GetSource (TfpgGDIDrag)