Tad, в принципе понятнее, но не работает, не получается внедрить, остановился на переборе строки с компонентом Str_Enum и Case.