Hola Novatin.
Realmente hace muchísimos años que no toco Turbo Pascal, pero recuerdo que la función
ReadKey te devolvía un byte si se había presionado una tecla normal y cero si era extendida, obteniendo el valor con una nueva lectura. Y, si mi memoria no falla creo que era algo como:
Código Delphi
[-]
var
ch: Char;
begin
repeat
ch := ReadKey;
if ch = #0 then
begin
ch:= Readkey;
case ch of
#80: #72: ...
end;
until ch = #27
...
Pero eso era para el viejo DOS...
, no lo dispongo para hacer la prueba.
Saludos