Probleme mit HelpContext

[egal]

Gestern habe ich zufällig entdeckt, dass in meiner ziemlich komplexen Anwendung Aufruf von der Hilfe mit Helpcontext nicht mehr funktioniert, obwohl es früher alles einwandfrei geklappt hat.
Ich habe ein Testprogramm geschrieben, wo ich Hilfe aufrufe:

Delphi-Quellcode:

Application.HelpFile := ExtractFilePath(Application.ExeName) +'Helpfiles\Druck.hlp';
Application.HelpContext(HelpContext);

Und da läuft alles. In meiner Anwendung mache ich genauso, aber Application.HelpContext ruft keine Hilfe auf. Was mache ich falsch?

[pmoegenb]

Ich machs immer so, wenn die Pfadangabe erforderlich wird:

Delphi-Quellcode:

private
    { Private-Deklarationen }
    HelpPfad: string;

procedure TForm1.FormCreate(Sender: TObject);
var
   Laenge: Integer;
begin
     Laenge := Length(ExtractFilePath(Application.ExeName));
     HelpPfad := copy(ExtractFilePath(Application.ExeName), 1,Laenge-1);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     SetCurrentDir(HelpPfad);
     Application.HelpKeyword('Allgemeines');
end;