Не получается корректно сохранить граф в файл из приложения на делфи,
при открытии полученного файла в графэдите пишет
не могу сконструировать граф из этого файла :

procedure TAudioConverter.SaveGraphToFile(FileName:PWideChar);
var
wszStreamName:PWideChar;
pStorage:IStorage;
hr:HRESULT;
pStream:IStream;
pPersist:IPersistStream;
wszPath:PWideChar;
begin
wszStreamName:='AudioConverterGraph';
wszPath:=FileName;
hr:=StgCreateDocfile(wszPath,STGM_CREATE or STGM_TRANSACTED or STGM_READWRITE or STGM_SHARE_EXCLUSIVE, 0, pStorage);
if FAILED(hr) then
begin
end;
hr:=pStorage.CreateStream(wszStreamName,STGM_WRITE or STGM_CREATE or STGM_SHARE_EXCLUSIVE, 0, 0,pStream);
if FAILED(hr) then
begin
end;
hr:=GraphBuilder.QueryInterface(IID_IPersistStream, pPersist);
if FAILED(hr) then
begin
hr:=999;
end;
hr:=pPersist.Save(pStream, TRUE);
//pStream._Release;
//pPersist._Release;
if SUCCEEDED(hr) then
begin
hr:=pStorage.Commit(STGC_DEFAULT);
if FAILED(hr) then
begin
end;
end;
//pStorage._Release();
end;


на билдере подобный код работает нормально
в чем грабли?