[*Caro*]

Hola esto solo te saca los hijos no los nietos, lo puse en evento chick del treeview

Código Delphi [-]
procedure TForm1.arbolClick(Sender: TObject);
var
   i:Integer;
   hijos:String;
begin
     IF arbol.Selected.HasChildren=TRUE THEN
     begin
         for i:=0 to arbol.Selected.Count-1 do
         begin
             hijos:=hijos+' > '+arbol.Selected.Item[i].Text;
             //Aqui es donde harias tu busqueda
         end;
         showmessage(hijos);
     end
     ELSE
         showmessage('El item no tiene hijos');
end;

Saludos