Funcion: ReadKey()
Sintaxis:

function ReadKey: Char;

Descripcion: ReadKey le una tecla desde el buffer del teclado, y regresa esta. Si una extendida o tecla de funcion ha sido presionada, entonces regreza un zero y el codigo ASCII. Tu puedes despues leer el codigo escaneado de la tecla con un segunda llamada al ReadKey.

Mapear teclas bajo linux puede causar errores en el reporte de teclas, por lo que se requiere precaucion cuando sea necesitado usar ReadKey
Ejemplo:

Program Example3;
uses Crt;
 
{ Program to demonstrate the ReadKey function. }
 
var
  ch : char;
begin
  writeln('Press Left/Right, Esc=Quit');
  repeat
    ch:=ReadKey;
    case ch of
     #0 : begin
            ch:=ReadKey; {Read ScanCode}
            case ch of
             #75 : WriteLn('Left');
             #77 : WriteLn('Right');
            end;
          end;
    #27 : WriteLn('ESC');
    end;
  until ch=#27 {Esc}
end.