Ошибки:
1. Если порт не откроется, то надо его закрыть и снова открыть. Иначе после первого же обновления в ходе отладки все перестанет работать.
2.
Два некогерентных условия:
IF ComPortState = 0 THEN
и
IF ComPortState <> 2 THEN
порт может открыться с непроинициализированными параметрами
3.

4: SendModbus1(
Enable:= ES,
Mode:= MB_RTU,
DevAddr:= 2,- Мыши погрызли?

END_CASE;