Уррррррра! работает!!!
Ребятушки, спасибо. На всякий случай для потомков выкладываю рабочий компонент функции целиком.

code_13077.txt