TMenuChangeEvent = procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean) of object;
(Sender: TObject; Source: TMenuItem; Rebuild: Boolean) ( TMenuChangeEvent)();
Menus
This is type Menus.TMenuChangeEvent.