Фото с вебкамеры в Delphi

function TForm2.go: HResult;
var
  enum : ICreateDevEnum;
  eMon : IEnumMoniker;
  monAr : array of IMoniker;
  pMoniker : IMoniker;
  DeviceName:OleVariant;
  PropertyName:IPropertyBag;
begin
  Result:=CoCreateInstance(CLSID_SystemDeviceEnum, NIL, CLSCTX_INPROC_SERVER,
  IID_ICreateDevEnum, Enum);
  if Result<>S_OK then EXIT;

  Result:=Enum.CreateClassEnumerator(CLSID_videoInputDeviceCategory, eMon, 0);
  if FAILED(Result) then EXIT;
  setlength(monAr,0);

  while (S_OK=emon.Next(1,pMoniker,Nil)) do
  begin
    setlength(monAr,length(monAr)+1);
    monAr[length(monAr)-1]:=pMoniker;
    Result:=pMoniker.BindToStorage(NIL, NIL, IPropertyBag, PropertyName);
    if FAILED(Result) then Continue;
    Result:=PropertyName.Read('FriendlyName', DeviceName, NIL);
    if FAILED(Result) then Continue;

    ListBox1.Items.Add(DeviceName);
  end;
end;

var
  fCamera : IBaseFilter;
  
    Result := monAr[n].BindToObject(nil,nil,IID_IBaseFilter,fCamera);

    pGrabber: ISampleGrabber = nil;
    fGrabber : IBaseFilter = nil;

  CoCreateInstance(CLSID_SampleGrabber,nil,CLSCTX_INPROC,
                    IID_IBaseFilter,fGrabber);
  Result := pGraphBuilder.AddFilter(fGrabber,'Sample Grabber');
  if Result = s_ok then
  begin
    fGrabber.QueryInterface(IID_ISampleGrabber,pGrabber);
    ZeroMemory(@DesiredMT,SizeOf(DesiredMT));
    DesiredMT.majortype := MEDIATYPE_Video;
    DesiredMT.subtype := MEDIASUBTYPE_RGB24;
    DesiredMT.formattype := FORMAT_VideoInfo;
    Result := pGrabber.SetMediaType(DesiredMT);
    if Result = s_ok then
    begin
      pGrabber.SetOneShot(False);
      pGrabber.SetBufferSamples(True);
    end else
    begin
      //error
      Exit;
    end;
    pCaptureGraphBuilder.RenderStream(@pin_category_preview,@mediatype_video,
                                     FVideoCaptureFilter,fGrabber,nil);
    pCaptureGraphBuilder.RenderStream(@pin_category_preview,@mediatype_audio,
                                     fAudioCaptureFilter,nil,nil);
  end;

function MakeScreenshot(var bmp: TBitmap; var ErrorCode: Integer):Boolean;
const
  nl = #13#10;
var
  BufferSize : Integer;
  vih : TVideoInfoHeader;
  mt : TAMMediaType;
  BMPInfo : TBitmapInfo;
  Buffer : Pointer;
  tmp : array of Byte;
  hr : HRESULT;
  hbmp : hbitmap;
Begin
  Result := False;
  ErrorCode := -1;
  hr := pGrabber.GetCurrentBuffer(BufferSize,nil);
  ZeroMemory(@mt,SizeOf(tammediatype));
  hr := pGrabber.GetConnectedMediaType(mt);
  vih := tvideoinfoheader(mt.pbFormat^);
  ZeroMemory(@bmpinfo,SizeOf(tbitmapinfo));
  CopyMemory(@bmpinfo.bmiheader,@vih.bmiheader,SizeOf(tbitmapinfoheader));
  Buffer := nil;
  hbmp := CreateDIBSection(0,BMPInfo,DIB_PAL_COLORS,Buffer,0,0);
  case hbmp of
    0:
    begin
      MoFreeMediaType(@mt);
{      MessageBox(form1,PChar('...!'+nl+'... HBMP = 0'),
                       PChar('...!'), MB_ICONERROR);}
      ErrorCode := 0;
      Exit;
    end;
    ERROR_INVALID_PARAMETER:
    begin
      MoFreeMediaType(@mt);
{      MessageBox(form1,PChar('...!'+nl+
                             '...: ERROR_INVALID_PARAMETER'),
                       pchar('...!'), MB_ICONERROR);}
      ErrorCode := ERROR_INVALID_PARAMETER;
      Exit;
    end;
  end;
  bmp.Handle := hbmp;
  SetLength(tmp,BufferSize);
  pGrabber.GetCurrentBuffer(BufferSize,@tmp[0]);
  CopyMemory(Buffer,@tmp[0],mt.lSampleSize);
  SetLength(tmp,0);
  MoFreeMediaType(@mt);
  Result := True;
end;

        pMediaControl.Pause;
        bmp := TBitmap.Create;
        if MakeScreenshot(bmp,n) then
        begin
          fn := FormatDateTime('"C:\"yyyy-mm-dd, hh-mm-ss".bmp"',Now);
          bmp.SaveToFile(fn);
        end;
        bmp.Free;
        pMediaControl.Run;