Source position: mseclasses.pas line 97
type componenteventty = procedure(
const acomponent: tcomponent
) of object;