Скрытие узлов Treeview

procedure TForm1.ProcXmlNode(aXmlNode: IXMLNode; aTree: TcxTreeView; aTreeNode: TTreeNode);
var
  NewTreeNode: TtreeNode;
  PxmlNode: TPXmlNode;
  i: Integer;
begin
  NewTreeNode := TTreeNode.Create(aTree.Items);
  New(PxmlNode);
  PxmlNode^ := aXmlNode;
  if aTreeNode = nil then
    NewTreeNode := aTree.Items.AddNode(NewTreeNode, aTreeNode, aXmlNode.Attributes['name'], PxmlNode, naAdd)
  else
    NewTreeNode := aTree.Items.AddNode(NewTreeNode, aTreeNode, aXmlNode.Attributes['name'], PxmlNode, naAddChild);
  for i := 0 to aXmlNode.ChildNodes.Count - 1 do
 
    if aXmlNode.ChildNodes[i].NodeName = 'std:node' then
      ProcXmlNode(aXmlNode.ChildNodes[i], aTree, NewTreeNode);
end;
 
procedure TForm1.ComboBox2Change(Sender: TObject);
var
  P: xmlPath;
begin
  P := ComboBox2.Items.Objects[combobox2.ItemIndex] as XMLpath;
  XMLDocument1.FileName := P.path;
  XMLDocument1.Active := True;
  cxTreeView1.Items.Clear;
  ProcXmlNode(XmldOCUMENT1.DocumentElement, cxTreeView1, nil);
end;

procedure TForm1.cxTreeView1Change(Sender: TObject; Node: TTreeNode);
var
  XmlNode, AttrNode: IXMLNode;
  PXmlNode: TPXmlNode;
  i, Row, CntRow, a: Integer;
begin
  XmlNode := TPXmlNode(Node.Data)^;
  if XmlNode.ChildNodes[0].NodeName = 'std:floatval' then
    if XmlNode.ChildNodes[0].ChildNodes[0].NodeName = '#text' then
    begin
      label3.caption := XmlNode.Attributes['name'];
      ComboBox4.Text := XmlNode.ChildNodes[0].ChildNodes[0].Text;
      Label3.Visible := True;
      ComboBox4.Visible := True;
    end
    else
    begin
      Label3.Visible := False;
      ComboBox4.Visible := False;
    end;
end;