OnKeyDown wird nicht ausgeführt...

[michael.funcke]

Nabend,

will beim Drücken der F1-Taste - egal welches Element gerade den Fokus hat - ne Message erscheinen lassen, aber ich krieg das mit KeyDown einfach nicht hin...
Was ist falsch?

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1 then
    ShowMessage('F1 was pressed!');
end;

Wenn ich einen Breakpoint in die ShowMessage-Zeile setze, wird beim Drücken von F1 aber auch nie "gebreakt". D.h. doch, dass entweder die Prozedur gar nicht aufgerufen wird oder die Bedingung der If-Abfrage nicht erfüllt ist, oder, liebe Delphi-Experten?