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