Мм
Ммммм
procedure Right(Current: TMyClass; var Level : integer);
begin
Level := Level + 1;
if Assigned(Current.Right)
then Right(Current.Right,Level);
end;
// вызывать
var
Level : ibteger;
...
Level := 0;
Right(Root,Level);
Level - содержит глубину