Interceptando as teclas de função

Veja nesta dica como interceptar teclas de funções.

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if Key = VK_F1 then

  .........VK F5

  ..............       

  ShowMessage('A Tecla F5 foi Pressionada');

end;