procedure TForm2.XiTrackBar2Change(Sender: TObject);
begin try
if FilterGraph1.Active then FilterGraph1.Volume:=XiTrackBar2.Position;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'C40000');
end;End;