Rozwijanie TreeView

Witam szukam kodu, który ma za zadanie rozwijać określone gałęzie TreeView i tu mam kłopot mianowicie nie potrafię odrożniać rodziców od dzieci.
W chwili obecnej mam taki kod:

var
i:integer;
begin
 for i:=1 to TreeView2.Items.Count-1 do
 IF TreeView2.Items.Item[i].text='szukana_pozycja' THEN
      BEGIN
        TreeView2.Items.Item[i].Expand(False);
        EXIT;
      END;
end;

Rozwija on pierwszą gałąź, w której znajdzie "szukana_pozycja" i tu jest kłopot mianowicie jak w znalezionej gałęzi przeszukać wszystkie pod itemy?

Kolejny problem jest taki że szukam sposobu na rozpoznanie czy dany rodzic posiada dzieci czyli czy można go rozwinąć czy nie, jest jakaś funkcja umożliwiająca sprawdzenie tego ?

na razie poradziłem sobie taką procedurą:

procedure TForm1.Rekurencja(I:integer);
BEGIN  //
 for i:=p to TreeView2.Items.Count-1 do
 IF TreeView2.Items.Item[i].text=xxy[nu] THEN        //tablica z kolejnymi galeziami
      BEGIN
      INC(nu);
      p:=i;
      TreeView2.Items.Item[i].Expand(False);
      IF nu<=2 THEN Rekurencja(p);                         //glebokosc
      EXIT;
      END;
END;

jednak dalej nie znam odpowiedzi na drugie pytanie:

Kolejny problem jest taki że szukam sposobu na rozpoznanie czy dany rodzic posiada dzieci czyli czy można go rozwinąć czy nie, jest jakaś funkcja umożliwiająca sprawdzenie tego ?

Item.HasChildren