procedure TForm1.oxGraphicButton1MouseEnter(Sender: TObject);
begin try
play_snd(0);
except end;End;