THookHelpSystem aus hh_funcs.pas hat Wartezeit beim Beenden

[pertzschc]

Hallo zusammen,

ich benutze in meinem Programm die units aus dem Delphi HH Kit. Wenn man das Programm beendet, wird in MainForm.FormDestroy das Objekt mHelp (mHelp: THookHelpSystem) mittels mHelp.Free freigegeben. Dabei entsteht konstant immer eine Wartezeit von 1 Sekunde in THookHelpSystem.Destroy.

Habt Ihr das Problem auch schon beobachtet und vielleicht einen Workaround gefunden?

Danke+Gruß,
Christoph

Delphi-Quellcode:

  
procedure TMainForm.FormCreate(Sender: TObject);
begin
...
  {Hook - verwendet HH_FUNCS.pas}
  mHHelp := hh_funcs.THookHelpSystem.Create(chmFile, '', htHHAPI);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
...
  if Assigned(mHHelp) then begin
    // Hilfe freigeben
    mHHelp.Free; // das hier dauert konstant eine Sekunde!
  end;
end;