Hola, me contesto a mi mismo por si a alguien le viene bien.
Para capturar las teclas de función sólo hay que poner el siguiente código:
Código:
if not AltDWN then
KeyState1[VK_RMENU] := 0;
if (VirtualKey in [112 .. 123]) then
begin
SendMessage(pFHandle^, KeyMsg, VirtualKey, KeyStroke);
end
else
begin
Count := ToAscii(VirtualKey, KeyStroke, KeyState1, @AryChar[1], 0);
ToAscii(VirtualKey, KeyStroke, KeyState1, @AryChar[1], 0);
...