TDragControlObject

pt 

GetDragCursor

pt 

GetDragImages

TDragObject

pt 

EndDrag

pt 

GetDragImages

pt 

GetDragCursor

Create

AutoCreate

HideDragImage

ShowDragImage