[roman]

Supongo que habría que hacer un procedimiento recursivo:

Código Delphi [-]
procedure SacaHijos(Nodo: TTreeNode; var Hijos: String);
var
  Hijo: TTreeNode;
  I: Integer;

begin
  for I := 0 to Nodo.Count - 1 do
  begin
    Hijo := Nodo.Item[i];
    Hijos := Hijos + ' > ' + Hijo.Text;
    SacarHijos(Hijo, Hijos);
  end;
end;

// Saludos