Taste F1 funktioniert nicht

[Forlan]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = ord(vk_f1) Then
    showmessage('blub');
end;

vllt. so?