#pas
initialization
CoInitializeEx(nil, COINIT_APARTMENTTHREADED);
finalization
CoUninitialize();
MyGraphBuilder.RenderFile(PWideChar(WideString(fn)),nil);
MyMediaControl.Run;
MyMediaControl.Run;
Ну как вариант. Метод RenderFile строит граф фильтров автоматически, так что все форматы к каким есть кодеки в системе должен проигрывать. Сам компонент не допилен, нет методов doPause, doStop, хотя в интерфейсе IMediaControl присутствуют.
Вот пример, может даже и для SVN сойдёт code_35785.txt