안녕하세요

어느 특정노드의 자식노드를 추가하기 전에 이 프로시져를 한번 돌려서 현재 추가할 노드에 추가하고자 하는 노드가 존재하는지를 체크해서 값을 넘겨주려고 합니다.
그래서 프러시져 하나 만들어 봤는데,
이게 코딩이 틀렸는지 안먹히네요...물론 코딩이 잘못된거겠죠...-.-

procedure TForm1.FindSameSubNode(const NodeName: string);
var
Node: TTreeNode;
Index : Integer;
begin
Node := TreeView1.Items.GetFirstNode;
repeat
if Node.HasChildren then
begin
     for Index := 0 to Node.Count - 1 do begin
       if Node.Text = ListBoxString then
         FindSubNode := 'Yes' // FindSubNode 이 변수는 전역변수입니다.
       else if Node.Text <> ListBoxString then
         FindSubNode := 'No';
     end;
end;
Node := Node.GetNext;
until Node = nil
end;