Доброе время суток господа.Подскажите пожалуйста, в чем проблема:переодически вылазит ошибка "..контакты не подключены" или вообще пустой VideoWindow.
Фрагмент кода инициализации(в FormCreate):

SysDev:=TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters = 0 then exit;
if SysDev.CountFilters > 0 then
FilterGraph1.ClearGraph;
FilterGraph1.Active := false;
Filter1.BaseFilter.Moniker :=SysDev.GetMoniker(0);
FilterGraph1.Active := true;
with FilterGraph1 as ICaptureGraphBuilder2 do
RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter1 as IBaseFilter, SampleGrabber1 as IBaseFilter,
VideoWindow1 as IBaseFilter);
FilterGraph1.Play;