TreeView sacar Hijos

[*Caro*]

Hola a todos

Estoy desesperada nose como poder sacar todos los hijos de un determinado item donde yo hago click en un treeview

Digamos que tenemos este arbol

 
Abuelo1       
------Hijo1     
------Hijo2     
----------nieto1 
----------nieto2 
Abuelo2
------Hijo12

1. Si yo hago click en nieto1 no saca ningun hijo
2. Si yo hago click en hijo2 me sca como sus hijos nieto1 y nieto2
3. Si yo hago click en abuelo1 deberia sacarme Hijo1, Hijo2, nieto1 y nieto 2

Lo estube haciendo de la siguiente manera

Código Delphi [-]
 
var
   i:Integer;
   hijos:String;
begin
     hijos:='';
     IF arbol.Selected.HasChildren=TRUE THEN
     begin
         for i:=0 to arbol.Selected.Count-1 do
         begin
             hijos:=hijos+' > '+arbol.Selected.Item[i].Text;
         end;
         showmessage(hijos);
     end
     ELSE
         showmessage('El item no tiene hijos');
end;

Me funciona para el caso 1 y 2 pero para la 3 solo me saca Hijo1 e Hijo2 pero no los nietos y si deberian estar

Ayudenme por favor cualquier idea sera bienvenida, muchisimas gracias por adelantado