treeitemdragbegineventty

type treeitemdragbegineventty = procedure(

  const sender: ttreeitemedit;

  const aitem: ttreelistitem;

  var candrag: Boolean;

  var dragobject: ttreeitemdragobject;

  var processed: Boolean

) of object;