제 코딩중 일부를 보냅니다.
참조하세요
var
    ItemList : TTreeNode;
begin
     if not tvLinkTopic.Selected.HasChildren then Exit;
     ItemList := tvLinkTopic.Selected.GetNext;
     while True do begin
//       ItemList := ItemList.GetNextChild(ItemList);
       ItemList := ItemList.GetNext;
       if ItemList = nil then break;
       if ItemList.Level = 1 then break;
     end;
도움....
               작은 프로그래머 토이