treeitemdragovereventty

type treeitemdragovereventty = procedure(

  const sender: ttreeitemedit;

  const source: ttreelistitem;

  const dest: ttreelistitem;

  var dragobject: ttreeitemdragobject;

  var accept: Boolean;

  var processed: Boolean

) of object;