Keypress Problem bei Setfocus

[thomas2009]

Hallo

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if(Key =39)then
    begin
      ShowMessage('Pfeil rechts'); 
    end;

Es funktioniert nur wenn der Focus in einem Edit !
Wenn ein BitBtn Button zum beispiel den Focus hat, dann funktioniert nicht