Button KeyDown a KeyPress v Delphi XE2

Zdravím.
Proč nefungují u buttonu procedury KeyDown a KeyPress.

Nic se neděje.

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
beep;
end;

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
begin
beep;
end;

U procedury Button1Click je to ok a zvuk se ozve.