tlistitemsdragobject

create

tdragobject

create

destroy

sender

acepted

refused

tnullinterfacedobject