Source position: mseglob.pas line 82
type objectlinkeventty = procedure(
const sender: tobject;
const event: objecteventty
) of object;