Así un poco por encima, deberías inicializar dx y dy antes de evaluar su valor en el case:
Código Delphi
[-]dx := 0;
dy := 0;
case cmd of
Luego, ¿Esto es correcto? array[0..0] ¿?
Código Delphi
[-]const
glyphs: array[0..0] of string = ('U0BH3DGD2FDRFR2ERUEU2HULHL2GL');
Código Delphi
[-]while (i <= Length(glyph)) and (glyph[i] in ['0'..'0']) do