procedure TForm9.JvXPBar1Items1Click(Sender: TObject);
begin try
HH(Handle,PChar(form2.compile_path(form2.get_ini_params('system','webhelp'))),0,0)
except end;End;