Андрей., Леонид, спасибо

Андрей., твоя схема работает некорректно если список несортированный(появляются новые ветки)

А вообще мне кажется компонент нуждается в пластической операции