Source position: menus.pp line 60
type TMenuChangeEvent = procedure(
Sender: TObject;
Source: TMenuItem;
Rebuild: Boolean
) of object;