function HtmlHelpInstalled: Boolean;
begin
  Result := (Assigned(HtmlHelpA));
End;