Воспроизведение видео через DirectShow

procedure TForm1.Button1Click(Sender: TObject);
var
  MyGraphBuilder: IGraphBuilder;
  MyMediaControl: IMediaControl;
  VideoWindow: IVideoWindow;
begin
  CoInitialize(nil);
 
  {получаем интерфейс IGraphBuilder}
  CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC_SERVER,
    IID_IGraphBuilder, MyGraphBuilder);
 
  {вызываем RenderFile - граф фильтров строится автоматически}
  MyGraphBuilder.RenderFile('video.mp4', nil);
 
  {получаем интерфейс ImediaControl}
  MyGraphBuilder.QueryInterface(IID_IMediaControl, MyMediaControl);
  {Примечание - MyMediaControl - переменная типа IMediaControl}
 
  {получаем интерфейс IVideoWindow}
  MyGraphBuilder.QueryInterface(IID_IVideoWindow, VideoWindow);
  {Примечание - VideoWindow - переменная типа IVideoWindow}
 
  {располагаем окошко с видео на панель}
  VideoWindow.put_Owner(Self.Panel1.Handle);
  VideoWindow.put_WindowStyle(WS_CHILD or WS_CLIPSIBLINGS);
  VideoWindow.SetWindowPosition(0, 0, Panel1.ClientRect.Right,
    Panel1.ClientRect.Bottom);
 
  MyMediaControl.Run;
 
  Sleep(5000);
 
  CoUninitialize;
end;