TcxCheckListBox 选中项的问题？

情况如下：
         我用TcxCheckListBox 控件，从数据库里面读了很多项。现在，需要用户选中那个 就获取它的值。我用了 TcxCheckListBox 的 cxCheckListBox1EditValueChanged 事件，可是 代码不知道如何写 因为，如果要或得选中的项，必须要提供一个ID号 也就是选中的序号procedure TFrmCKGLGL.cxCheckListBox1EditValueChanged(Sender: TObject);
var
  CurrentItem : TcxCheckListBox;
begin
    CurrentItem := (Sender as TcxCheckListBox);
    if  CurrentItem.Items.Items[?].Checked then
    begin
      Application.MessageBox(PChar(Format('%s', [CurrentItem.Text])), '提示信息', MB_OK +
        MB_ICONINFORMATION);    end;
end;