procedure TForm2.oxGraphicButton14Click(Sender: TObject);
begin try
play_snd(1);
if FilterGraph1.Active then begin
if not FilterGraph1.Pause then FilterGraph1.Pause else
FilterGraph1.Play;
end;except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C80000');
end;End;