Source position: ucbase.pas line 277
type TOnApplyRightsMenuItem = procedure(
Sender: TObject;
MenuItem: TMenuItem
) of object;