Source position: msemenus.pas line 40
type menuitemeventty = procedure(
const sender: tmenuitem
) of object;