if sample.StreamType = mmf_VIDEO_STREAM then

ImageEnView1.IO.MediaFoundationSourceReader.SetVideoInput(ComboBox1.ItemIndex);

ImageEnView1.IO.MediaFoundationSourceReader.SelectMediaType(mmf_VIDEO_STREAM, 0);

    ImageEnView1.IO.MediaFoundationSourceReader.VideoProcessor.SetMirror(mfpmHorizontal);
    ImageEnView1.IO.MediaFoundationSourceReader.VideoProcessor.SetRotation(mfprNormal);

    ImageEnView1.IO.MediaFoundationSourceReader.StartCapture();

with ImageEnView1.IO.DShowParams do
    begin
      GetSample(ImageEnView1.IEBitmap);
      ImageEnView1.Update;
      frame.IEBitmap.Assign(ImageEnView1.IEBitmap); // Frame is a TImageEnView component
      frame.IO.fParams.Assign(ImageEnView1.IO.fParams);
      frame.Update;
      modalresult := mrOk;
    end;

with ImageEnView1.IO.MediaFoundationSourceReader do
    begin
      sample := GetNextSample();
      try
        if sample.StreamType = mmf_VIDEO_STREAM then
        begin
          sample.DecodeSample(ImageEnView1.IEBitmap);
          ImageEnView1.Update();
          frame.IEBitmap.Assign(ImageEnView1.IEBitmap);
          frame.IO.fParams.Assign(ImageEnView1.IO.fParams);
          frame.Update;
          modalresult := mrOk;
        end;
      finally
        sample.Free();
      end;
    end;

var
  w, h: Integer;
begin
  with ImageEnView1.IO.DShowParams do
  begin
    begin
      disconnect;
      // set video source as index of IO.DShowParams.VideoInputs
      SetVideoInput(ComboBox1.ItemIndex, StrToIntDef('0', 0));
      // set the second parameter if you have more than one camera with same name
      connect;
      w := VideoFormats[0].MaxWidth;
      h := VideoFormats[0].MaxHeight;
      SetVideoInput(ComboBox1.ItemIndex, StrToIntDef('0', 0), w, h);
      // set the second parameter if you have more than one camera with same name
      // enable video and audio rendering
      RenderAudio := True;
      RenderVideo := True;

      // ReferenceClock:=rcAudioOutput;
      // ClockErrorTolerance:=40;
      // ReferenceClock:=rcSystemClock;

      // Connect to the video input
      connect;

      // Set bitmap size
      GetVideoRenderNativeSize(w, h);
      ImageEnView1.Proc.ImageResize(w, h);
    end;
    // start capture
    Run;
  end;
end;