[Fonoman]

Попробуй

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
(ssFn in Shift) and (chr(Key) in [chr(114)]);