[angvelem]

Так и пиши, клавишу, а не кнопку:

Код:

procedure TForm1.OnKeyDown(Sender : TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_F1 then
  ...
end;

и не забудь свойство формы KeyPreview, выставить в True.