procedure TForm12.cxDBTreeList1FocusedNodeChanged(Sender: TcxCustomTreeList; APrevFocusedNode,
  AFocusedNode: TcxTreeListNode);
var
  filter: string;

  procedure ProcessNodes(const Node: TcxTreeListNode; var AFilter: string; const AForceToAdd: Boolean);
  var
    id: Integer;
    child: TcxTreeListNode;
    checked: Boolean;
    I: Integer;
  begin
    // обработка одной записи

    // сама запись
    if (Node <> Node.TreeList.Root) then
    begin
      id := Node.Values[cxDBTreeList1id.ItemIndex];
      checked := Node.Selected or AForceToAdd;
      if checked then
      begin
        if AFilter <> '' then
        begin
          AFilter := AFilter + ' OR ';
        end;
        AFilter := AFilter + Format('id = %d ', [id]);
      end;
    end;

    // все ее дети
    child := Node.getFirstChild;
    while child <> nil do
    begin
      ProcessNodes(child, AFilter, checked);
      child := child.getNextSibling;
    end;
  end;

begin
  // обновляет фильтр на основе отмеченных галочек

  // начальные условия в фильтре
  filter := '';

  // доп условие в фильтре по выделенным строкам
  ProcessNodes(AFocusedNode, filter, false);

  Label1.Caption := filter;

end;