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