[AlexSku]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= IntToStr(DWord(TreeView1.Selected.ItemId));
  Label2.Caption:= IntToStr(DWord(TreeView1.Selected.Parent.ItemId));
end;

Или нужен порядковый номер потомка в родителе? (Index)