как в дереве ставятся индексы..

[SNUPY]

  if TreeView1.Selected <> nil then
    caption:=inttostr(TreeView1.Selected.Index);
    if TreeView1.Selected.Parent <> nil then
    begin
      Caption:=inttostr(TreeView1.Selected.Parent.Index)+'-'+Caption;
    end;
  end;

В загаловке формы будет "номер родительской ветви" - "номер самого выбранного"

[Анастасия123456789]

в общм так мне нужно чтобы у каждого вот например
-1
-1
-2
-3
-2
-1
-2
были укаждого свой индекс.. ну у 1 и 2 свои поддерево.. но у в теории ето должно быть.. а вот в практике... не получается у меня почему о даже ставя в индесы в 2 дерево не опредляетсякак 1 ..
чтобы пользователь при выборе конкретного листа открывалось страница хтмл..
вот мне нужно чтобы у каждого поддева были свои индексы..
чтобы можно было обращатся к каждому..

[SNUPY]

Если транслятор мне правильно подсказал, то вам необходимо узнать глобальный индекс выделенного узла в дереве.
То тогда могу предложить

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  Caption:=IntToStr( Node.AbsoluteIndex);
end;