Objetivo:
Função que espera o usuário pressionar uma tecla qualquer. Ela retorna um valor do tipo Char, correspondendo ao caractere pressionado.

OBS: Se o valor retornado for 0 ( zero ) o usuário pressionou uma tecla estendida (F1-F12 ou as setas de movimento do cursor, por exemplo). Neste caso, chame ReadKey mais uma vez, pois estas teclas especiais sempre retornam dois códigos (0 + código correspondente à tecla pressionada).

Veja Também: KeyPressed

Exemplo:

Uses CRT;

Var tecla: Char;

Begin

   WriteLn(‘Pressione uma tecla’);    
   Tecla := ReadKey;

   If tecla = #0 then  { se o código for zero é porque uma tecla 
                         especial foi pressionada }
   Begin      

      Tecla := ReadKey;
      WriteLn(‘Você pressionou uma tecla especial. O número dela é: ‘, 
               Ord(tecla));
   End
   Else
       WriteLn(‘Você pressionou uma tecla cujo código ASCII é’, Ord(tecla));

End.