Tad, так алгоритм-то меняется, может и без нагрузки схватит кто-нибудь, кроме того интересно стало, вдруг получится путное

Вот попутно разбивка получилась, переведите IC в компонент (только помнится процедура StrReplace(Str,SubStr,DestStr); в компонентах не работает
