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;