Delphi освобождение массива IMoniker

[BLACK_RAIN]

Здравствуйте.
Есть массив AudioMonikers : array of IMoniker и процедура, которая его заполняет:

function getAudioRenderers: Integer;
var
  res : HRESULT;
  pMoniker : IMoniker;
  s : string;
  DeviceName:OleVariant;
  PropertyName:IPropertyBag;
  pDevEnum:ICreateDEvEnum;
  pEnum:IEnumMoniker;
begin
  pDevEnum := nil;
  pEnum := nil;
  PropertyName := nil;
  Result := 0;

  Res:=CoCreateInstance(CLSID_SystemDeviceEnum, NIL, CLSCTX_INPROC_SERVER,
IID_ICreateDevEnum, pDevEnum);
  case res of
    REGDB_E_CLASSNOTREG : s := 'REGDB_E_CLASSNOTREG';
    CLASS_E_NOAGGREGATION: S := 'CLASS_E_NOAGGREGATION';
    E_NOINTERFACE: S := 'E_NOINTERFACE';
    E_POINTER: S := 'E_POINTER';
  end;
if Res<>S_OK then EXIT;

Res:=pDevEnum.CreateClassEnumerator(CLSID_AudioRendererCategory, pEnum, 0);
if res<>S_OK then EXIT;
setlength(AudioMonikers,0);
while (S_OK=pEnum.Next(1,pMoniker,Nil)) do
begin
setlength(AudioMonikers,length(AudioMonikers)+1);
AudioMonikers[length(AudioMonikers)-1]:=pMoniker;
Res:=pMoniker.BindToStorage(NIL, NIL, IPropertyBag, PropertyName);
if FAILED(Res) then Continue;
Res:=PropertyName.Read('FriendlyName', DeviceName, NIL);
if FAILED(Res) then Continue;
s := DeviceName;
cbox_AddItem(cbox_AudioRenderer,s);
Inc(Result);
end;
  DeviceName := '';
  pMoniker := nil;
  PropertyName := nil;
  penum := nil;
  pDevEnum := nil;
end;

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

[lomastr_]

почему массив? возьмите любой подходящий лист
и код у вас странноватый

[BLACK_RAIN]

Сообщение от lomastr_

почему массив? возьмите любой подходящий лист
и код у вас странноватый

Что за лист? Где еще можно держать моникеры, если не в массиве?
И в каком месте странноватый?

[lomastr_]

Что за лист? Где еще можно держать моникеры, если не в массиве?

да где угодно, например TList<>

И в каком месте странноватый?

везде, что за кейс? добавляете в массив а потом смотрите надо ли добавлять в комбобокс, концовка не понятная ..

[Vapaamies]

Сообщение от BLACK_RAIN

Что за лист? Где еще можно держать моникеры, если не в массиве?

В TInterfaceList.

[BLACK_RAIN]

Сообщение от Vapaamies

В TInterfaceList.

il := TInterfaceList.Create;
il.Add(pmoniker);
(il.Items[0] as imoniker).GetClassID(guid);
MessageBox(0,PChar(GUIDToString(guid)),'',0);
il.Free;

Типа так? В конце просто убить лист и не надо освобождать каждый моникер?