procedure TForm2.oxGraphicButton5Click(Sender: TObject);
begin try
play_snd(1);
SetPriorityClass(GetCurrentProcess,norm_p);
self.Notebook1.PageIndex:=1;
except end;End;