как один компонент dxBarPopupMenu привязать к нескольким компонентам

Подскажите, как один компонент dxBarPopupMenu (DevExpress) привязать к нескольким компонентам на форме? С TPopupMenu всё понятно...

var
i: integer;
gh: TcxCheckListBox;
begin
gh:=PopupMenu3.PopupComponent as TcxCheckListBox;
for i:=0 to gh.Items.Count-1 do gh.Items.Items[i].Checked:=false;

Справку никто не хочет читать

This example demonstrates how to activate a TdxBarPopupMenu when an end-user right-clicks in the form.  The following code snippet represents a form’s OnMouseDown event handler.

// Delphi
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxBarPopupMenu1.PopupFromCursorPos;
end;

Наверное я ни так выразился....
у меня есть два TcxCheckListBox и к ним подключен один dxBarPopupMenu1. У dxBarPopupMenu1 всего одна кнопка на эти два cxCheckListBoxа. Как мне получить имя cxCheckListBox над которым был вызван dxBarPopupMenu1 (нажата эта кнопка) для выполения кода. Раньше я использовал TPopupMenu и код выглядел так:

var
i: integer;
gh: TcxCheckListBox;
begin
gh:=PopupMenu3.PopupComponent as TcxCheckListBox;
for i:=0 to gh.Items.Count-1 do gh.Items.Items[i].Checked:=false;

SergeyS
У dxBarPopupMenu1 всего одна кнопка на эти два cxCheckListBoxа.

Каким образом "подключён" ?

cxCheckListBox1.popupmenu:=dxBarPopupMenu1;
cxCheckListBox2.popupmenu:=dxBarPopupMenu1;

dxBarPopupMenu1 подключен к TdxBarManager и вот эта одна кнопка находится в TdxBarManager на закладке Commands.

procedure TForm1.dxBarManager1PopupMenuLinks0Action(
  Sender: TdxBarPopupMenuLink; var X, Y: Integer; ClickedByMouse: Boolean;
  var AllowPopup: Boolean);
begin
  caption :=Sender.Control.Name;
end;

dxBarManager.PopupMenuLinks+ 2 итема, а это выкинуть

cxCheckListBox1.popupmenu:=dxBarPopupMenu1;
cxCheckListBox2.popupmenu:=dxBarPopupMenu1;

т.е. это будет вот так: см. файл?
Мне нужно будет вводить переменную и использовать её в обработчеке кнопки?

Да