1:
2:
3:
4:
5:
6:

BaseFilter: IBaseFilter;
FTVTUNER:IAMTVTuner;
VideoWindow:TVideoWindow; //Komponente
FilterGraph:TFilterGraph; //Komponente
Filter:TFilter; //Komponente
SampleGrabber:TSampleGrabber; //Komponente					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var
  Enumfilters:IEnumFilters;
  SysDev: TSysDevEnum;
begin
  SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  if SysDev.CountFilters > 0 then
    begin
      FilterGraph.ClearGraph;
      FilterGraph.Active := false;
      Filter.BaseFilter.Moniker := SysDev.GetMoniker(0);
      FilterGraph.Active := true;
      with FilterGraph as ICaptureGraphBuilder2 do
        RenderStream(@PIN_CATEGORY_PREVIEW, nil, Filter as IBaseFilter, SampleGrabber as IBaseFilter, VideoWindow as IbaseFilter);
      FilterGraph.Play;
   end;
   (FilterGraph as IFilterGraph).EnumFilters(Enumfilters);
   EnumFilters.Reset;
   FTVTuner:=nil;
   while EnumFilters.Next(1,BaseFilter,nil)=S_OK do begin
     if Supports(BaseFilter,IAMTVTuner,FTVTuner) then begin
       break;
     end;
   end;
   SysDev.Free;					

1:

(BaseFilter as IAMTVTuner).put_Channel(StrToInt(Edit1.Text),-1,-1);