procedure TForm2.oxGraphicButton7Click(Sender: TObject);
begin try
play_snd(1);
media_pop1.Popup(Left+646,Top+104);
except end;End;