[lbidi]

Muchas gracias ecfisa por tu pronta respuesta y tu colaboracion.

He probado con tu nuevo codigo , asignandole una clase pero me da un error de memoria cuando creo un nuevo nodo.

En esta parte del codigo

Código Delphi [-]
procedure TForm1.btnAddNodeClick(Sender: TObject);
var
  nodo: TTreeNode;
begin
  Clase:= TClase.Create;
  ObjLst.Add(Clase);
  Clase.Nivel:= 'Nuevo valor nivel';
  Clase.Texto:= 'Nuevo valor texto';
  { Concatenar niveles ( 010203... ) }
  with tvCatalogo do
  begin
    Clase.Level:= TClase(Selected.Data).Level +
     StringOfChar('0', 2-Length(IntToStr(Selected.Level+1))) +
     IntToStr(Selected.Level+1);   <---------- aqui me salta cuando lo ejecuto, no al compilar.
    nodo:= Items.AddChildObject(Selected,Clase.Texto,Clase)
  end;
end;

Es un error tipo "acceso de violacion....", no puedo ( a menos yo ), porque se genera.

Nuevamente mil gracias por tu ayuda.

Saludos.