//  TfvMain = class(TForm)
//    trvTree: TTreeView;

const
  cMaxItems = 5;
  cNodeName = 'Node_';

procedure TfvMain.TreeClear;
begin
  trvTree.Items.Clear
end;

procedure TfvMain.TreeInsert;
  var wNode, wNode2 :TTreeNode;
begin
  wNode := trvTree.Selected;
  wNode2 := trvTree.Items.Insert(wNode, '');
  NodeSetName(wNode2);
end;

procedure TfvMain.TreeLoad;

  procedure NodeSetName( aNode :TTreeNode);
  begin
    aNode.Text := cNodeName +
                    //индекс локальный, уникальный в ветке дерева TreeNode.Item[]
                  IntToStr(aNode.Index) + '_' +
                    //индекс глобальный, уникальный по всему дереву TreeView.Items[]
                  IntToStr(aNode.AbsoluteIndex) + '_' +
                    //дескриптор узла (win api), уникальный по всему дереву
                  IntToHex(Integer(aNode.ItemId), 8);
  end;

  var
    wNode, wNode2 :TTreeNode;
    i, j :integer;
begin
  with trvTree.Items do
  begin
    BeginUpdate;
    for i := 1 to cMaxItems do
    begin
      wNode := Add(nil, '');
      NodeSetName(wNode);
      for j := 1 to cMaxItems do
      begin
        wNode2 := AddChild(wNode, '');
        NodeSetName(wNode2);
        end;
      end;
    trvTree.FullExpand;
    EndUpdate;
    end;
end;