procedure TForm2.oxGraphicButton4Click(Sender: TObject);
begin try
play_snd(1);
search_on_menu1.Popup(Left+430,Top+104);
except end;End;