[ecfisa]

Hola.

Creo entenderte... probá haciendo:

Código Delphi [-]
procedure TForm1.btnAddNodeClick(Sender: TObject);
var
  nodo: TTreeNode;
begin
  Clase:= TClase.Create;
  ObjLst.Add(Clase);
  Clase.Nivel:= 'Nuevo nivel';
  Clase.Texto:= 'Nuevo texto';
  with tvCatalogo do
  begin
    Clase.Level:= TClase(Selected.Data).Level +
     StringOfChar('0', 2-Length(IntToStr(Selected.Level+1))) + 
       IntToStr(Selected.Count + 1);  
   nodo:= Items.AddChildObject(Selected,Clase.Texto,Clase)
  end;
end;

La propiedad Count de TTreeNode contiene la cantidad de nodos hijos que contiene un TreeNode determinado.

Saludos.