Pascal/Turbo Pascal - reconocedor de teclas

ki uvo alguien podria ayudarme con un programa que
detecte una tecla asi como una combinacion de teclas (alt + ent)
que el programa detecte la tecla que oprimistes
ha... tambien las teclas de funciones

espero recibir sus mensajes .............

Antes que nada algo de teoría. El teclado tiene dos tipos de teclas, las de caracter y las teclas especiales (estas últimas en los teclados viejos venian en colo gris, por eso se les llamaba las telcas grises).
Las teclas que devuelven caracteres son facilmente detectables con la función ReadKey; que devuelve un tipo Char.
Para el resto de las teclas el teclado envía dos códigos, el primero siempre es #0 y el segundo el código de la tecla. Vaya un programa de ejemplo:
var
A:Char;
begin
repeat
A:=ReadKey;
if A = #0 then
begin
A:=ReadKey;
WriteLn('Tecla Especial: ',Ord(A));
end { if }
else
begin
WriteLn('Tecla normal:, Ord(A));
end; { else }
until A=#27; { hasta presionar ESC }
end.
Lo que hace el programa es esperar por una tecla, si el caracter devuelto es el cero quiere decir que detrás viene otro el cual se toma (el programa no se detiene a esperar esa tecla porque ya está en el buffer), en este caso se trata de una tecla especial. Sino es una tecla normal.

Esta es la evrsion de Pascal de un funcion que uso en C++

function Inkey():integer
var
c : integer;
begin
c:=ord(Readkey),
if c=0 then
c:=ord(Readkey)+300;
Inkey := c;
end;

Esta funcion devuelve un valor por encima de 300 para cualquier combinaciond de teclas pulsadas como Alt, Ctrl, Shift y todas las combinaciones con teclas Function.

Saludos