요즘들어 잠시 시간이 널널해진 것을..
여실히 들통이 나고 있는 류입니다..
자꾸 물어보시니..
아주 필요없어 보이는 것 까지..
(머리를 짜고 짜서 꽁수마저)

1. Button의 KeyDown Event 이용
procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_F1 then TButton(Sender).OnClick(Sender);
end;

2. Caption 가리기
  Speed 또는 Bit 버턴에 Margin이라는 프로퍼티는..
  -1로 설정되어 있습니다.. 이것을 조절하면 0이라든가..
  그림이 가운데로 가거나 캡션에 영향을 받지 않습니다..
  만약 버턴 Width가 넓어 캡션이나타나면..
  버턴의 색깔과 Font.Color를 같게해서 안보이게 하세요..
  (역시 잔대가리(죄송 슬랭을..)가 최고야..)

3. PopupMenu 콤포넌트 이용
  PopupMenu에 ShortCut을 지정하시는 것은 아실테고..
procedure TForm1.PopupMenuItem1Click(Sender: TObject);
begin
  Button1Click(Nil);
end;
  폼위에서 팝업 메뉴가 뜨는 것이 보기 싫으시면..
  AutoPopup이라는 프로퍼티를 False로 하세여..