Pascal/Turbo Pascal - Asignacion de teclas especiales

En donde encuentro los códigos Ascii de las teclas como F1, Iz, der.....
pues creo que había un proceimiento para encontrar esas teclas, con una validacion de
If tecla= 0 then
tecla:= readkey;
pero no me ha salido aún si alguien se sabe el procedimientole agradecería.

program L;
uses crt;
var
c:char;
op:integer;
procedure marcar;
begin
case op of
1:
begin
gotoxy(10,6);
textbackground(0);
textcolor(7);
write('Opcion 2');
gotoxy(10,7);
write('Opcion 3');
textbackground(4);
textcolor(15);
gotoxy(10,5);
write('Opcion 1');
end;
2:
begin
gotoxy(10,5);
textbackground(0);
textcolor(7);
write('Opcion 1');
gotoxy(10,7);
write('Opcion 3');
textbackground(4);
textcolor(15);
gotoxy(10,6);
write('Opcion 2');

end;
3:
begin
gotoxy(10,6);
textbackground(0);
textcolor(7);
write('Opcion 2');
gotoxy(10,5);
write('Opcion 1');
textbackground(4);
textcolor(15);
gotoxy(10,7);
write('Opcion 3');

end;
end;
end;
begin
textmode(2);
clrscr;
op:=1;
marcar;
repeat
c:=readkey;
if c=#0 then
begin
c:=readkey;
case ord(c) of
72:
begin
if op=1 then
begin
op:=3;
end
else
begin
op:=op-1;
end;
end;
80:
begin
if op=3 then
begin
op:=1;
end
else
begin
op:=op+1;
end;
end;
end;
marcar;
end;
until c=chr(13);
end.

Case Tecla Of
#59 : Write ('F1 ');
#72 : Write ('Flecha arriba ');
#75 : Write ('Flecha izquierda ');
#77 : Write ('Flecha derecha ');
#80 : Write ('Flecha abajo ');
Else Write ('0 ', ord(Tecla), ' ');
End; {Case}

Por ceirto, en http://marclim.united.net.kg/ hay una unidad para manejar el tema de las teclas. Es el archivo ExtKeys2.rar.

Saludos.