아래 코드는 최요일님께서 에이트 창에서 입력받아 트리뷰에서 노드 이름을 뽑아내는 부분입니다.

var
    CurNode: TTreeNode;
    StrList: TStringList;
    S: string;
    Index: Integer;
begin
    S := Edit1.Text; // 'apple mango banana'
    StrList := TStringList.Create;
    ExtractStrings([' '], [' '], PChar(S), StrList);

    CurNode := TreeView1.Items.GetFirstNode;
    repeat
        for Index := 0 to StrList.Count - 1 do
        begin
            if Pos(StrList.Strings[Index], CurNode.Text) <> 0 then
            begin
                ListBox1.Items.Add(CurNode.Text);
                Break;
            end;
        end;
        CurNode := CurNode.GetNext;
    until CurNode = nil;
    StrList.Free;
end;

위 코드는 같은 이름(같은 이름을 가진 노드)에 상관 없이 리스트박스에 입력됩니다. 그래서 아래와 같이 코드를 바꿔서 중복되는 이름을 걸러서 리스트박스에 들어가게 하려고 했습니다.
그러나 아무 작동도 안하는게 어디가 잘못 되었는지 잘 모르겠습니다. -.-

var
    CurNode: TTreeNode;
    StrList: TStringList;
    S: string;
    Index: Integer;
begin
    S := Edit1.Text; // 'apple mango banana'
    StrList := TStringList.Create;
    ExtractStrings([' '], [' '], PChar(S), StrList);

    CurNode := TreeView1.Items.GetFirstNode;
    repeat
        for Index := 0 to StrList.Count - 1 do
        begin
            if Pos(StrList.Strings[Index], CurNode.Text) <> 0 then
            begin
                for i:=0 to listbox1.items.count-1 do  // 여기서 부터
                begin
                   if listbox1.items.strings[i] = Trim(CurNode.Text) then
                   begin
                     Break;
                   end;
                end;   // 여기까지 추가.
                ListBox1.Items.Add(CurNode.Text);
                Break;
            end;
        end;
        CurNode := CurNode.GetNext;
    until CurNode = nil;
    StrList.Free;
end;