Проблема с компонентом TreeView, C++ builder Опции

[ninja]

Добрый день!

Необходимо заполниль дерево с помощью компонента TreeView, имя элемента дерева должно состоять из номеров и имен, т.е. например дерево должно выглядеть следующим образом:

Код

1имя1
2имя2
3имя3
   3.1имя4
   3.2имя5
      3.2.1имя6
4имя7
   4.1имя8

таким образом чтобы и дочерние и родительские элементы имели порядковый номер.
Столкнулся с такой проблемой что нумерация при добавлении дочернего элемента начинается с 0

Родительские элементы нумеруются нормально, а вот с дочерними проблема

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString name, roditelb;
TTreeNode *node;

if (TreeView1->Items->Count == 0)   // добавление первого элемента
	{
		name = "1:";
		name += Edit1->Text+":";
		name += ComboBox1->Items->Strings[ComboBox1->ItemIndex];
		TreeView1->Items->Add(NULL,name);
	}
else
	{
		if (RadioGroup1->ItemIndex == 0)   /// добавление родительских элементов
			{
				name = IntToStr(TreeView1->Items->Count+1)+":";
				name += Edit1->Text+":";
				name += ComboBox1->Items->Strings[ComboBox1->ItemIndex];
				TreeView1->Items->Add(NULL,name);
			}

		if (RadioGroup1->ItemIndex == 1) /// добавление дочерних элементов
			{
				selected2++;  
				name = IntToStr(selected2)+":";
				name = Edit1->Text+":";
				name += ComboBox1->Items->Strings[ComboBox1->ItemIndex];
				TreeView1->Items->AddChild(TreeView1->Selected,name);
			}
	}
}

Спасибо за помощь.

[volvo]

Так лень мне Билдер запускать... Дельфи открытая, поэтому сделаю здесь (переносится на Билдер практически один в один)

procedure BuildMenu(node: TTreeNode; menu: TMenuItem);
var
  NewMenu, NewSubMenu: TMenuItem;
  TVnode: TTreeNode;
begin
  TVnode := node;
  while TVnode <> nil do
  begin
    if TVnode.HasChildren then
    begin
      NewSubMenu := TMenuItem.Create(menu);
      NewSubMenu.Caption := TVnode.Text;
      BuildMenu(TVnode.GetFirstChild, NewSubMenu);
      menu.Add(NewSubMenu);
    end
    else
    begin
      NewMenu := TMenuItem.Create(menu);
      NewMenu.Caption := TVnode.Text;
      menu.Add(NewMenu);
    end;
    TVnode := TVnode.GetNextSibling;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var CurrMenu: TMainMenu;
begin
  CurrMenu := TMainMenu.Create(Form1);
  BuildMenu(TreeView1.Items.GetFirstNode, CurrMenu.Items);
  Form1.Menu := CurrMenu;
end;

Вот и все...

Проверял до 5-го уровня вложенности - работает нормально...