[ecfisa]

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: // Key down
        #72: // Key up
        ...
      end;
   until ch = #27
   ...

Pero eso era para el viejo DOS... , no lo dispongo para hacer la prueba.

Saludos