procedure DoChange(Source: TMenuItem; Rebuild: Boolean); override;