var
  GraphBuilder: IGraphBuilder; //сам граф
  MediaControl: IMediaControl; //управление графом
//  MediaEvent: IMediaEvent; //обработчик событий
  MediaPosition: IMediaPosition; //позиция проигрывания
  BasicAudio: IBasicAudio; //управление звуком
  AudioRenderer : IBaseFilter;
  VideoRenderer: IBaseFilter;
  VideoPreview: IBaseFilter;

  RenderConfig:  IVMRFilterConfig;
  WindowslessControl: IVMRWindowlessControl;

  SrcRect, DestRect: TRect;
  X, Y, Z, T: integer;

procedure TMainForm.TryFunc(aResult: HResult; Msg: string);
begin
  if aResult <> S_OK
  then raise Exception.Create(Msg);
end;

   // создаем объект для фильтра вывода видео FVideoRender он же будет микшировать
   // наше видео с изображением текста
    TryFunc(CoCreateInstance(CLSID_VideoMixingRenderer, nil, CLSCTX_INPROC,
      IID_IBaseFilter, VideoPreview), 'Не удается создать VMR');

    //добавляем его в граф
    TryFunc(GraphBuilder.AddFilter(VideoPreview, 'Video Renderer'),
      'Не удается add Video preview');

    TryFunc(VideoPreview.QueryInterface(IID_IVMRFilterConfig, RenderConfig),
      'Не удается get RenderConfig');

    TryFunc(RenderConfig.SetRenderingMode(VMRMode_Windowless),
      'Не удается setrenderingmode');

    TryFunc(RenderConfig.SetNumberOfStreams(1), 'Не удалось задать кол-во потоков');

//    TryFunc(VideoPreview.QueryInterface(IID_IVMRMixerBitmap, ScreenBitmap),
//      'Не удалось получить битмап для наложения картинки');

    TryFunc(GraphBuilder.RenderFile(PChar(FileName), nil),
      'ошибка рендеринга файла');

    TryFunc(VideoPreview.QueryInterface(IVMRWindowlessControl, WindowslessControl),
      'Не удается get WindowlessControl');

    TryFunc(WindowslessControl.SetVideoClippingWindow(pnlTop.Handle),
      'Не удается SetVideoClippingWindow');

  //
    WindowslessControl.GetNativeVideoSize(X, Y, Z, T);
    SrcRect.Left := 0;
    SrcRect.Top := 0;
    SrcRect.Right := X;
    SRcRect.Bottom := Y;
    DestRect := pnlTop.ClientRect;
    TryFunc(WindowslessControl.SetVideoPosition(@SrcRect, @DestRect),
      'Не удается SetVideoPosition');

procedure TMainForm.pnlTopResize(Sender: TObject);
begin
  if FPlaying then
  begin
    DestRect := pnlTop.ClientRect;
    WindowslessControl.SetVideoPosition(@SrcRect, @DestRect);
  end;
end;