Source position: mseclasses.pas line 101
type eventeventty = procedure(
const sender: tobject;
const aevent: tobjectevent
) of object;