안녕하세요. 최용일입니다.

쩝~ 예전에 했던것들을 조금씩만 응용하셨으면 될텐데....

시간나시면 트리뷰의 속성과 메소드들에대해서 델파이 헬프를 한번 차근차근 보세요...

function FindChildNode(Node: TTreeNode; const NodeText: string): Boolean;
// Node의 Child(1단계아래만검사)중에서 NodeText란 이름을 가진 노드가 있는지 검사
var
    ChildNode: TTreeNode;
begin
    Result := False;
    ChildNode := Node.GetFirstChild; // Node의 첫번째 자식노드얻기
    while ChildNode <> nil do // 자식노드가 있다면
    begin
        if CompareText(NodeText, ChildNode.Text) = 0 then
        // 자식노드의 이름이 NodeText와 같은 이름이라면
        begin
            Result := True;
            Break; // 루프종료
        end;
        ChildNode := Node.GetNextSibling; // Node의 다음번 자식노드 검색
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    CurNode: TTreeNode;
    Index: Integer;
begin
    // 트리뷰의 모든 아이템 검사
    CurNode := TreeView1.Items.GetFirstNode;
    repeat
        if ListBox1.Items.IndexOf(CurNode.Text) <> -1 then
        // 노드 이름이 첫번째 리스트박스에 있다면
        begin
            for Index := 0 to ListBox2.Items.Count - 1 do
            // 두번째 리스트박스에 있는 이름들을 추가
            begin
                if not FindChildNode(CurNode, ListBox2.Items[Index]) then
                // 노드의 Child노드를 검색해서 두번째 리스트박스에 없는 이름만 추가
                  TreeView1.Items.AddChild(CurNode, ListBox2.Items[Index]);
            end;
        end;
        CurNode := CurNode.GetNext;
    until CurNode = nil;
end;

^^ 항상 즐코하세요...