tdockdragobject
create
destroy
refused
twidgetdragobject
tdragobject
sender
acepted
tnullinterfacedobject