procedure TXPMenu._work_doCheckItems;
var   i: Integer;
begin
   if Menu.Count > 0 then
      for i:=0 to Menu.Count-1 do
         if (Menu.ItemText[i] <> ') and Menu.ItemChecked[i] then
            _hi_onEvent(_event_onCheckItems,i);
end;