Hilfe in Delphi einbinden .chm

[Sunny1984]

Hallo hoffe das ich hier richtig bin mit meiner Frage.

Versuche schon seit 2 Tagen die Hilfe in Delphi ein zu binden lau der Anleitung HTML Hilfe in Delphiund komme nicht weiter.

Habe alles so gemacht wie dort beschrieben aber er öffnet mir die Hilfe im Programm nicht weder per HelpContex oder per Button.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,hh, hh_funcs, D6OnHelpFix;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  mHHelp: THookHelpSystem;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Application.HelpContext(1001);
end;

procedure TForm1.FormCreate(Sender: TObject);
var chmFile: string;
begin
  chmFile := ExtractFilePath(ParamStr(0))+'Hilfe\ETW_Hilfe.chm';

  mHHelp := nil;

  if not FileExists(chmFile) then
    ShowMessage('Hilfe-Datei nicht gefunden'#13+chmFile);

  {HH 1.2 oder höher Versionskontrolle}
  if (hh.HHCtrlHandle = 0)
    or (hh_funcs._hhMajVer < 4)
    or ((hh_funcs._hhMajVer = 4) and (hh_funcs._hhMinVer < 73)) then
      ShowMessage('Diese Anwendung erfordert die Installation der '+
      'MS HTML Help 1.2 oder höher');

  {Hook - verwendet HH_FUNCS.pas}
  mHHelp := hh_funcs.THookHelpSystem.Create(chmFile, '', htHHAPI);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
HHCloseAll; // Schließt alle Hilfe-Fenster
  if Assigned(mHHelp) then
    mHHelp.Free;
end;

end.

Habe auch die Dateien eingebunden siehe "uses hh, hh_funcs, D6OnHelpFix" mein Prgramm bringt mir auch keine Fehler. Habe auch getestet ob er die Hilfe Datei findet

Delphi-Quellcode:

if not FileExists(chmFile) then
    ShowMessage('Hilfe-Datei nicht gefunden'#13+chmFile);

Bei den HTML Workshop habe ich auch alles beachtet. Wenn ich direkt auf die .chm clicke geht die Hilfe auf.

Weiß einfach nicht mehr weiter und hoffe ihr könnt mir Helfen. Ich bedanke mich im Voraus mfg Sunny