Вот эту всю неимоверную конструкцию - в утиль бы.
Использую такой подход
CASE State OF
0:
State:=1;
1*С этого начинаем*)
;
END_CASE;