procedure ClearNode(node: TTreeNode);
var nNode : TTreeNode;
begin
  // очистка определенного узла
  while node <> nil do begin
    if node.HasChildren then
       ClearNode(node.GetLastChild);   // GetFirstChild
    if node <> nil then begin
      NodeData:= Node.Data;
      if NodeData <> nil then begin

        if Условие then 
          nNode := nil
        else begin
          FreeAndNil(NodeData);
          nNode := node.getPrevSibling;
          node.Delete;
        end;
      end;
    end;
    {if nNode <> nil then node := nNode
    else node := node.getPrevSibling;      //  GetNextSibling;   }
    if nNode <> nil then node := nNode
    else if node <> nil then
      node := node.getPrevSibling
    else node := nNode;
  end;
end;

procedure TframeTreeDataModule.ClearNode(node: TTreeNode);
var nNode : TTreeNode;
begin
  // добавить очистку определенного узла
  while node <> nil do begin
    if node.HasChildren then
       ClearNode(node.GetLastChild);   // GetFirstChild
    if node <> nil then begin
      NodeData:= Node.Data;
      if NodeData <> nil then begin
        if "условие" then begin
          nNode := nil;
          node.Collapse(True);
        end else begin
          REPV := NodeData.REPV;
          if REPV <> nil then FreeAndNil(REPV);
          FreeAndNil(NodeData);
          nNode := node.getPrevSibling;
          node.Delete;
          node := nil;
        end;
      end else if node.Text = '' then begin
        nNode := node.getPrevSibling;
        node.Delete;
        node := nil;
      end;
    end;
    if nNode <> nil then node := nNode
    else if node <> nil then
      node := node.getPrevSibling
    else node := nNode;
  end;
end;