Hola,
El código de más arriba funciona, pero, tal vez no te disguste este otro, que también parece ir bien:
Código Delphi
[-]
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key in [VK_F2, VK_F3] then ConsultaF;
end;