530c530
<           else if not (c in[6,13,16,17,18,19,20,21,22,23]) then inc(XPos);
---
>           else if not c in[6,13,16,17,18,19,20,21,22,23] then inc(XPos);