Source position: msemenus.pas line 335
type menueventty = procedure(
const sender: tcustommenu
) of object;