procedure TForm1.oxGraphicButton9Click(Sender: TObject);
begin try
play_snd(1);
base_pop1.Popup(Left+500,Top+102);
except end;End;