TdxSkinPopupSysMenuEvent = procedure(Sender: TObject; AForm: TCustomForm; ASysMenu: HMENU) of object;