Pascal/Turbo Pascal - ascii de las flechas de cursor

utilizando los códigos ascii ¿cómo diferencio las flechas del cursor con cuatro mayúsculas que tienen el mismo código?
gracias
miguel

Las teclas de cursor envían dos códigos ASCII el primero siempre es cero y el segundo es el código que checas por ejemplo para checar si se pulsa -> Flecha a la derecha

repeat
car:=readkey;
if car=chr(0) then
car:=readkey;
if car=chr(77) then
writeln('Pulso tecla derecha')
else writeln('Pulso otra tecla de codigo ampliado')
else writeln('Pulso la tecla:',car);
until car=27;