TfpgDrag

pt 

GetSource

Create

Execute