tlistitemdragobject
create
item
tobjectdragobject
tdragobject
destroy
sender
acepted
refused
tnullinterfacedobject