Pascal/Turbo Pascal - Ayuda con las teclas especiales del teclado

Estoy creando un programa que permite utilizar las teclas direccionales del teclado (arriba, abajo, izquierda y derecha) para mover una figura en pantalla, pero esas teclas no tienen ASCII (ojo, no me refiero a los simbolitos ASCII de flechitas ni nada de eso, me refiero a los botones reales del teclado).
Sé que las teclas devuelven primero un 0 para indicar que no hay código ASCII real, y luego el código de la tecla (72 para arriba, 80 para abajo, etc), pero no sé como implementarlo.

Cualquier ayuda, cursos, ejemplos,... se apreciarán. Muchas gracias.

Ok, hace tiempo hice un programa que utilizaba menus controlado por teclas especiales que si mas lo recuerdo tenía la siguiente base, espero te sirva. Saludos!!!

{Mira esto evitara que al pulsar las letras [K, M, H, P] se tomen como flechas o sea derecha,
izquierda, arriba, abajo}

program teclas2;
uses
crt;
var
tecla : word;
nx, ny, px, py : integer;

function tecla_pulsada : word;
var
te : char;
vad : word;
begin
te := readkey;
if te = #0 then
vad := word(ord(readkey)) shl 8
else
vad := ord(te);
tecla_pulsada := vad;
end;

procedure mueve(anx, any, x, y : integer);
begin
gotoxy(anx,any);write(' ');
gotoxy(x,y);write('*');
end;


begin
px := 1;
py := 1;
nx := 1;
ny := 1;
clrscr;
repeat
mueve(nx, ny, px, py);
nx := px;
ny := py;
tecla := tecla_pulsada;
if tecla = 18432 then
begin
py := py - 1;
if py < 1 then
py := 1;
end;
if tecla = 20480 then
begin
py := py + 1;
if py > 24 then
py := 24;
end;
if tecla = 19200 then
begin
px := px - 1;
if px < 1 then
px := 1;
end;
if tecla = 19712 then
begin
px := px + 1;
if px > 79 then
px := 79;
end;
until tecla = 27;
end.