==> Depth는 없는 것인가요? 물론 Recursive하게 찾으면 문제가 되질 않겠지만, 1 Depth라면 Loop로 간단히 해결되죠.. ^^;

1. 노드와 캡션을 파라미터로 해서 주어진 노드의 Next Sibling 노드중 주어진 캡션을 가진 노드를 찾아 리턴하는 함수를 만드세요..
    Hint)
      TTreeview.Items.GetFirstNode;
      TTreeNode.getFirstChild;
      TTreeNode.getNextSibling;

  function GetSiblingNodeWithCaption(APreNode: TTreeNode;
    ASubCaption: String): TTreeNode;
  var
    Node: TTreeNode;
  begin
    Result := nil;
    Node := APreNode.getNextSibling;
    while Assigned(Node) do
    begin
      if Pos(ASubCaption, Node.Caption) > 0 then
      begin
        Result := Node;
        Break;
      end;
      Node := Node.getNextSibling;
    end;
  end;

  2. 그리고 찾은 노드를 저장할 TTreeNode객체를 멤버변수로 선언합니다.
  찾기 액션이 있을때 마다, 1번에서 만든 함수를 호출해 주시면됩니다.
  최초로 할때는, Treeview의 첫번째 노드를 넘기시면 되구요, 그 결과를
  멤버변수로 선언한 변수에 저장하신후 다음 호출시 그것을 넘기시면 됩니다.


ps. 즐프 & 즐스타(참고로 바로 작성한거라,, 확신은 ㅡ_ㅡ..죄송(_ _))