dragovereventty

type dragovereventty = procedure(

  const asender: tobject;

  const apos: pointty;

  var adragobject: tdragobject;

  var accept: Boolean;

  var processed: Boolean

) of object;