[Serga]

Подскажите пожалуйста, как получить список item'ов одного уровня в выбранной ветке treeview?
(при щелчке по item в treeview записать в ListBox итемы следующего уровня, без подуровней)

[Serga]

впрочем уже не надо
если кому понадобится

Код:

procedure TreeBranch(TV: TTreeView; List : TStrings) ;
var
i  :integer;
begin

 for i := 0 to TV.Selected.Count  - 1 do
  begin
    List.Add(TV.Selected.Item[i].Text);
  end;

end;