directshow видеоплеер

[alman12]

Почему звук нету ? видео воспроизводится но звук нет

uses
activex,directshow9;

var
    hr: HRESULT;
  evCode: Integer;
pGraphBuilder : IGraphBuilder = nil;
pCaptureGraphBuilder2: ICaptureGraphBuilder2 = nil;
pSourceFile : IBaseFilter = nil;
pMediaControl : IMediaControl = nil;
pMediaEvent : IMediaEvent = nil;
pVideoWindow : IVideoWindow = nil;
 paUDIO:   IBasicAudio=NIL;

procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC, IID_IGraphBuilder,  pGraphBuilder);
CoCreateInstance(CLSID_CaptureGraphBuilder2, nil, CLSCTX_INPROC,  IID_ICaptureGraphBuilder2, pCaptureGraphBuilder2);
CoCreateInstance(CLSID_AudioRender, nil, CLSCTX_INPROC, IID_IBasicAudio, paudio);

pCaptureGraphBuilder2.SetFiltergraph(pGraphBuilder);
pGraphBuilder.AddSourceFilter(StringToOleStr(opendialog1.filename), '',  pSourceFile);
pGraphBuilder.QueryInterface(IID_IMediaControl, pMediaControl);
pGraphBuilder.QueryInterface(IID_IMediaEvent, pMediaEvent);
 pGraphBuilder.QueryInterface(IID_IBasicAudio, paUDIO);
pCaptureGraphBuilder2.RenderStream(nil, nil, pSourceFile as IBaseFilter, nil, nil);

hr := pGraphBuilder.QueryInterface(IID_IVideoWindow,pVideoWindow);
pVideoWindow.put_Owner(Panel1.Handle);
pVideoWindow.put_WindowStyle(WS_CHILD);
pVideoWindow.put_Left(0);
pVideoWindow.put_Width(Panel1.Width);
pVideoWindow.put_Top(0);
pVideoWindow.put_Height(Panel1.Height);
pMediaEvent.WaitForCompletion(INFINITE, evCode);
pMediaControl.Run;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
CoCreateInstance(CLSID_FilterGraph, nil, CLSCTX_INPROC, IID_IGraphBuilder,pGraphBuilder);
pGraphBuilder.QueryInterface(IID_IMediaControl, pMediaControl);
pGraphBuilder.QueryInterface(IID_IMediaEvent, pMediaEvent);
pGraphBuilder.QueryInterface(IID_IBasicAudio, paUDIO);
paUDIO.put_Volume(-10000);
end;

[alman12]

никто не может помочь ?