procedure TForm1.N6Click(Sender: TObject);
begin try
play_snd(1);
if HtmlHelpInstalled then begin
   if HH(Handle,PChar(compile_path(get_ini_params('system','webhelp'))),0,0)=0 then begin
      MessageBox(0, 'WikiBrowse help system is not installed or corrupted !, please reinstall the help system.',PChar(Application.Title),MB_OK+MB_ICONHAND);
   end;
end else begin
   MessageBox(0, '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 !',PChar(Application.Title),MB_OK+MB_ICONHAND);
end;
except end;End;