CmdID := Integer(TrackPopupMenu(Popup,
                     TPM_LEFTALIGN or TPM_RETURNCMD or TPM_RIGHTBUTTON,
                     Where.X, Where.Y, 0, Handle, nil));
          if CmdID <> 0 then
          begin
            with CommandInfo do
            begin
              cbSize := SizeOf(CommandInfo);
              fMask := 0;
              hwnd := 0;
              lpVerb := MakeIntResource(CmdID - 1); // >>>> ERROR
              lpParameters := nil;
              lpDirectory := nil;
              nShow := SW_SHOWNORMAL;
              dwHotKey := 0;
              hIcon := 0;
            end;
            Result := Succeeded(ContextMenu.InvokeCommand(CommandInfo));
          end;