procedure TForm2.oxGraphicButton13Click(Sender: TObject);
begin try
if Sender<>player_stop1 then play_snd(1);
player_stop1.Enabled :=false;
if FilterGraph1.Active then begin
FilterGraph1.Stop;
FilterGraph1.Active :=false;
end;
if not self.FilterGraph1.Active then self.draw_logo.Enabled :=true;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C90000');
end;End;