TfpgGDIDrag

pt 

GetSource

Destroy

Execute