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