Result := pGrabber.SetMediaType(MT); //MT беру из нулевого пина фильтра источника
      if Result = s_ok then
      begin
        pGrabber.SetOneShot(False);
        pGrabber.SetBufferSamples(True);
      end;

function MakeScreenshot(var bmp: TBitmap):Boolean;
var
    BMIHeader : TBitmapInfoHeader;
    bmpInfo : PBitmapInfo;
//  bmp: TBitmap;
    hr : HRESULT;
    buffer : Pointer;
    BufferSize: longint;
    mt : TAMMediaType;
    HBMP : HBITMAP;
begin
    Result := False;
    buffer := nil;
    BufferSize := 0;
//  BMIHeader := 0;
          ZeroMemory(@mt,SizeOf(mt));
          hr := pGrabber.GetConnectedMediaType(mt);
          if hr<>s_ok then
          begin
            case hr of
              E_POINTER:
              MessageBox(form1.Handle,PChar('MT E_POINTER'),'',MB_ICONERROR);
              VFW_E_NOT_CONNECTED:
              MessageBox(form1.Handle,PChar('MT VFW_E_NOT_CONNECTED'),'',MB_ICONERROR);
            end;
            Exit;
          end;
          if (IsEqualGUID(mt.majortype, MEDIATYPE_Video)) or                // зачем нужны
             (IsEqualGUID(mt.majortype,MEDIATYPE_Stream))  then begin // эти проверки?
            case mt.formattype.D1 of
              $05589F80: BMIHeader := PVideoInfoHeader(mt.pbFormat)^.bmiHeader; // выполняется это
              $F72A76A0: BMIHeader := PVideoInfoHeader2(mt.pbFormat)^.bmiHeader;
            else
            BMIHeader := PVideoInfoHeader2(mt.pbFormat)^.bmiHeader;
            end;
//          New(bmpinfo);
            ZeroMemory(BMPInfo, sizeof(BMPInfo));
            CopyMemory(@BMPInfo.bmiHeader, @bmiHeader, sizeof(TBITMAPINFOHEADER)); // тут структура вроде не пустая
            bmp.Handle := CreateDIBSection(0, BMPInfo^, DIB_RGB_COLORS, buffer, 0, 0); //возвращает 0
{          hbmp := CreateDIBSection(0, BMPInfo^, DIB_RGB_COLORS, buffer, 0, 0);
            If hbmp=ERROR_INVALID_PARAMETER then
            begin
              MessageBox(form1,PChar('ERROR_INVALID_PARAMETER'),'',0);
              Exit;
            end;}
            HR := pGrabber.GetCurrentBuffer(BufferSize, buffer); //размер приходит, а буфер = nil; HR = S_OK
            case hr of
      E_OUTOFMEMORY:
      MessageBox(0,PChar('??? ?? ??????'),PChar('SOUND ERROR'),MB_ICONERROR);
      E_INVALIDARG:
      MessageBox(0,PChar('E_INVALIDARG'),PChar('SOUND ERROR'),MB_ICONERROR);
      VFW_E_NOT_CONNECTED:
      MessageBox(0,PChar('VFW NOT CONNECTED'),PChar('SOUND ERROR'),MB_ICONERROR);
      E_POINTER:
      MessageBox(0,PChar('E_POINTER'),PChar('SOUND ERROR'),MB_ICONERROR);
      VFW_E_WRONG_STATE:
      MessageBox(0,PChar('WRONG STATE'),PChar('SOUND ERROR'),MB_ICONERROR);
{    S_OK:
      MessageBox(0,PChar('OK'),PChar('SOUND ERROR'),MB_OK);}
            end;
      end;
//  BMIHeader := nil;
    bmpInfo := nil;
    buffer := nil;
    BufferSize := 0;
    MoFreeMediaType(@mt);
    Result := True;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
    t : string;
    bmp : TBitmap;
begin
    bmp := TBitmap.Create;
    pMediaControl.Pause;
    if MakeScreenshot(bmp) then
    begin
      t := 'c:\900.bmp';
      bmp.SaveToFile(t);
      ShellExecute(0,nil,PChar(t),nil,nil,SW_SHOW);
    end;
    bmp.Free;
//  pMediaControl.Run;

end;

bmp.Handle := CreateDIBSection(0, BMPInfo^, DIB_RGB_COLORS, buffer, 0, 0); //возвращает 0
            HR := pGrabber.GetCurrentBuffer(BufferSize, buffer); //размер приходит, а буфер = nil; HR = S_OK

bmpInfo.bmiHeader.biCompression := BI_RGB; //дописал это
            bmp.Handle := CreateDIBSection(0, pBMPInfo^, DIB_RGB_COLORS, buffer, 0, 0); // теперь тут стал приходить хэндл на битмап.

BufferSize := 0; //убрал это

bmpInfo.bmiHeader.biCompression := BI_RGB;