Source position: msedrag.pas line 30
type dragendeventty = procedure(
const asender: tobject;
const apos: pointty;
var adragobject: tdragobject;
const accepted: Boolean;
var processed: Boolean
) of object;