[Jose_Pérez]

No me habá dado cuenta. Funciona bien tal cual está...

Código Delphi [-]
While (Enum.Next(1,TempObj,Value)=S_OK) Do
        begin
     
        // Recorre todos los elementos.

        end;

Únicamete habría que cambiar la fuinción para que delvolviera una lista en lugar de un String.