[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;