procedure TForm2.WikiBrowseHelp1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
if HtmlHelpInstalled then begin
   if HH(Handle,PChar(compile_path(get_ini_params('system','webhelp'))),0,0)=0 then begin
      msgbox(Application.Title,'WikiBrowse help system is not installed or corrupted !, please reinstall the help system.',0,1);
      abfApplicationProperties1Restore(Sender);
   end;
end else begin
   msgBox(Application.Title,'Required version of Microsoft Web Help is not available in this computer,'#13#10'To access the WikiBrowse Help, install latest Microsoft Web Help support on your computer !',0,3);
   abfApplicationProperties1Restore(Sender);
   end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'G70000');
end;End;