TDragObjectEx
Create
TDragObject
pt
EndDrag
GetDragImages
GetDragCursor
AutoCreate
HideDragImage
ShowDragImage