Hola...
Puedes obtener el máximo level al momento de ir llenando el
TreeList:
Código Delphi
[-]
var
MaxLevel: Integer;
begin
MaxLevel := 0;
ANode := TreeList1.Items.AddChild(Parent, 'Texto');
if MaxNode < ANode.Level then
MaxNode := ANode.Level;
end;
De esta forma obtendrás el nivel máximo cada que agregues un nodo nuevo...
Saludos...