procedure TForm2.oxGraphicButton6Click(Sender: TObject);
begin try
play_snd(1);
research_prj_pop1.Popup(Left+575,Top+104);
except end;End;