Pascal/Turbo Pascal - Lectura de caracteres especiales

Buenos diás para todos.

Les comento un problemin que me surgio al hacer un programa. Estoy realizando un editor de texto, utilizando archivos. Pues el problema es el siguiente: no se como hacer que Pascal reconozca cuando se presiona la tecla "F2". Quiero hacer que cuando se presione esta tecla guarde el documento en el cual se esta trabajando.

He intentado de muchas formas, busque en la tabla de códigos ASCII pero no esta, hice un programa que devuelve el código ASCII de una tecla presionada y el código que me devuelve es "0 30", pero no puedo asignar ese código a una variable, para compararlo despues. He buscado en la Red pero no encontrenada, también busque en el libro de Luis Joyanes y no hay nada que me pueda servir.

Alguien sabe de que página deberia consultar o donde puedo encontrar algun código o manual donde haya algo que me pueda servir.

De antemano muchas gracias por cualquier ayuda o sugerencia.

Saludos :-)

Prueba lo siguiente:

Function wReadKey :Word;
Var
K :Word;
Begin
K := Ord(ReadKey);
If (K=0) then K := Ord(ReadKey)*256;
wReadKey := K;
End; {wReadKey}

La función anterior te permitirá leer el código real de cada tecla, por lo que sólo te bastará utilizarla para averiguar qué código le corresponde a cada una. Un ejemplo:

Program BuscaCodigo;
Var
K :Word;

Function wReadKey :Word;
Var
K :Word;
Begin
K := Ord(ReadKey);
If (K=0) then K := Ord(ReadKey)*256;
wReadKey := K;
End; {wReadKey}

Begin
Repeat
K := wReadKey;
Write(K:5, ', ');
{Finaliza al pulsar la tecla "ESC"}
Until (K=27);
End. {Buscacodigo}

Espero te sea de utilidad. Saludos ;-)

Gracias Hurricane, voy a probar y te cuento que paso. Gracias de nuevo.

Alejandro, yo tengo una unidad que hace esto. Sí querés escribime que te la mando.

OK, gracias M@rceloL. Ahora mismo te envio un correo.

Gracias de nuevo Hurricane el código que diste que bién, era justo lo que estaba buscando.

Saludines.

Alejandro, por algún !"·"@#¬ motivo me revotan los correos hacia tu casilla. Igual subí el archivo en marclim.united.net.kg, el archivo llamado "ExtKeys2.rar".

Gracias M@rceloL, ya descargue el archivo, pero no he tenido tiempo de verlo. Y de nuevo gracias.

Saludines para todos. :-)