ShortCut mit F1

[Franz100]

Ich möchte in der Anwendung mit <F1> die Hilfe-Datei öffnen. Verwende aber kein Menü.
Jetzt habe ich folgenden Code geschrieben:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F1) then
HtmlHelp(0, PChar(Application.HelpFile), HH_DISPLAY_TOC, 0);
end;

Es kommt auch keine Fehlermeldung. Nur wenn ich <F1> drücke, passiert überhaupt nichts.
Ich habe unter uses HHAPI eingetragen und in den Projekt-Optionen den Namen der Hilfe-Datei.