Hilfe mit F1 aufrufen

[Luckie]

Ich benutze chm-Hilfe Dateien in meinem Programm. Drückt man im Hautpfenster F1, so öffne ich eine betsimmte Seite in der Hilfe:

Delphi-Quellcode:

procedure TForm1.WndProc(var message: TMessage);
begin
  inherited;
  case message.Msg of
    WM_HELP:
      begin
        HtmlHelp(Handle, PChar(MYHELPFILE + '::\Programmoberfläche.html'),
          HH_DISPLAY_TOPIC, 0);
      end;
  end;
end;

Die Funktion Htmlhelp ist aus der entsprechenden Jedi Unit.

Jetzt habe ich folgenden Effekt:
Ruft man die Hilfe mit F1 auf und schliueßt man das Programm, kommt es zu einer AV. Ruft man die Hilfe nicht auf, geht alles ohne Problem. Der Fehler muss also im obigen Code sein.
Rufe ich die Hilfe per Button-Klick auf, geht auch alles wunderbar.