filter := 'DATE = lalala';
node := tree_Items.FocusedNode; // перебор с выделенного
//node := tree_Items.FocusedNode.getFirstChild; // перебор с детей
//node := tree_Items.Root.getFirstChild; // перебор по всему дереву
while node <> nil do
begin
  itemID := NVL(node.Values[tree_ItemsR_ID.ItemIndex], -1);
  filter := filter + Format(' AND ID = %d', [itemID]);
  node := node.GetNext;
end;

procedure TForm84.dxDBTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  filter: string;

  procedure ProcessNodes(const ANode: TdxDBTreeNode; var AFilter: string);
  var
    id: Integer;
    child: TdxDBTreeNode;
    I: Integer;
  begin
    // значение от основного нода
    id := ANode.KeyFieldValue;
    if AFilter <> '' then
    begin
      AFilter := AFilter + ' AND ';
    end;
    AFilter := AFilter + Format('id = %d ', [id]);

    // значения от всех его детей
    child := ANode.getFirstChild as TdxDBTreeNode;
    while child <> nil do
    begin
      ProcessNodes(child, AFilter);
      child := ANode.GetNextChild(child) as TdxDBTreeNode;
    end;
  end;

begin
  if Node = nil then
  begin
    Exit;
  end;

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

  // дополнительные условия в зависимости от выбранного нода
  ProcessNodes(Node as TdxDBTreeNode, filter);

  Label1.Caption := filter;
end;

procedure TForm8.dbTreeChange(Sender: TObject);
var
  filter: string;

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

    // сама запись
    if (ANode <> ANode.TreeList.Root) then
    begin
      id := ANode.Values[dbTreeID.ItemIndex];
      checked := ANode.Values[dbTreeCHECK.ItemIndex]; // Properties должна быть CheckBox с ImmediatePost = True
      if checked then
      begin
        if AFilter <> '' then
        begin
          AFilter := AFilter + ' AND ';
        end;
        AFilter := AFilter + Format('id = %d ', [id]);
      end;
    end;

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

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

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

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

  Label1.Caption := filter;
end;

checked := ANode.Values[dbTreeCHECK.ItemIndex];

checked := ANode.Selected;

procedure TForm8.dbTreeChange(Sender: TObject);
var
  filter: string;

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

    // сама запись
    if (ANode <> ANode.TreeList.Root) then
    begin
      id := ANode.Values[dbTreeID.ItemIndex];
      checked := ANode.Selected or AForceToAdd; // Properties должна быть CheckBox с ImmediatePost = True
      if checked then
      begin
        if AFilter <> '' then
        begin
          AFilter := AFilter + ' AND ';
        end;
        AFilter := AFilter + Format('id = %d ', [id]);
      end;
    end;

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

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

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

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

  Label1.Caption := filter;
end;

checked := ANode.Values[dbTreeCHECK.ItemIndex] or AForceToAdd;