Konoplj2010, блин, упустил, переключение идёт при подаче одного байта из списка строк , а в строке с Edit этот символ проходит и передаётся в куче что и видно из расшифровки (см. рис.) ------------ Дoбавленo в 20.29:
Замените If-Else на StrMask с маской *10* и выделить "10" StrPart