Encapsulation d'une interface IEnumVariant dans un itérateur

Languages = interface(IDispatch)
    ['{0002096E-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
     ... 
    property _NewEnum: IUnknown read Get__NewEnum;
    ...
  end;

LanguagesDisp = dispinterface
    ['{0002096E-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    ...
  end;

type
    // Conteneur générique pour une collection IEnumVariant
  TCustomEnumerateurEnumVariant = class
  private
     // Contient la collection
    FObjetCollection: IEnumVariant;
     // Accés remote possible
    FItem:  OleVariant;
  public
    Constructor Create(Enum : IDispatch);
    Function GetNextItem:Boolean;
    Function GetCollection(ACollection:IDispatch) :IEnumVariant;

    Property Item:OleVariant read FItem;
    Property NextItem:Boolean read GetNextItem;
  end;

  TEnumerateur = class;

   // Conteneur spécialisé pour une interface implémentant IEnumVariant
  TEnumVariant = class(TCustomEnumerateurEnumVariant)
          //Méthode nécessaire pour la prise en charge de l'itération
    Function GetEnumerator: TEnumerateur;
  end;

   // Énumérateur pour la classe conteneur.
   // Il doit implémenter une suite de méthodes comme indiqué ci-dessous.
  TEnumerateur = class
  strict private
    FListe : TEnumVariant; //Référence la collection concernée par l'itération
  public
    constructor Create (AList : TEnumVariant);
     //Membre de classe nécessaire pour la prise en charge de l'itération
    function GetCurrent: IUnknown;
    function MoveNext :Boolean;    // Méthode publique
    property Current : IUnknown read GetCurrent; // Propriété en Read Only
  end;

procedure Erreur;
var Word  : Variant;
    Element: IUnKnown;

    IEnum :  TEnumVariant;
begin
try
  Word := CreateOleObject('Word.Application');

  // Obtention de la liste des langues
  IEnum:=TEnumVariant.Create(Word.Languages);

  // Puis utilisation de l'énumérateur de collection fourni
  For Element in IEnum Do
  Begin
    With (Element As Language) do
     Writeln(IntToStr(ID),' ',Name,' ',NameLocal);
  End;
 Finally
  IEnum.Free;
  Word.Quit;
  Word := unassigned;
 end;  
end;

...
   // Affecte un énumérateur pour la collection d'objets SWbemObjectSet
  ObjectEnumerator:=TEnumVariant.Create(wmiService.InstancesOf('systemrestore',
                                             wbemFlagReturnWhenComplete+wbemQueryFlagShallow,
                                             nil));

  For MonObjetWMI in ObjectEnumerator do
  begin
      // Affecte un énumérateur pour la collection d'objet SWbemPropertySet
   PropertyEnumerator:= TEnumVariant.Create((MonObjetWMI as SWBemObject).Properties_);

   For MaProprieteWMI in PropertyEnumerator do
   begin
       // Retrouve le nom du service via la propriété de classe nommée 'Name'.
    With (MaProprieteWMI as SWBemProperty)  do
     begin
      If Name='CreationTime'   
      ...

procedure Erreur;
// Exemple précédent modifié 
var msWord : TWordApplication; // L'application Word
    Element: Language;
    Empty  : TObject; // Pour les paramètres optionnels

begin
 try
  msWord := TWordApplication.Create;

  // Puis utilisation de la collection native via System.Collection.IEnumerator
  For Element in msWord.Languages Do
   With Element do
    Console.WriteLine('{0} {1} {2}',ID,Name,NameLocal);

 Finally
  Empty := System.Reflection.Missing.Value;
  msWord.Application.Quit(Empty,Empty,Empty);
 end;
end;

Procedure Enumere;
// Enumére les points de restauration système Via WMI
var
  WMILocator : ManagementScope;  //TSWbemLocator
  WmiService : ConnectionOptions;//SWbemServices;
  Path : ManagementPath;
  Options : ObjectGetOptions;
  EnumOptions: EnumerationOptions;
  SRClass : ManagementClass;

  SRList: ManagementObjectCollection;
  MonObjetWMI: ManagementObject;

begin
 try
    //préparation des options de connections
   WmiService:=ConnectionOptions.Create;
   With WmiService do
   begin
    EnablePrivileges:=False; // valeur par défaut
    Timeout:=InfiniteTimeout; // InfiniteTimeout valeur par défaut
   end;

   // Création du chemin d'accès à l'espace de nom
  Path:=ManagementPath.Create('\\.\root\Default:SystemRestore');

   // Création d'une connexion avec le chemin préparé
  WMILocator:= ManagementScope.Create(Path,WmiService);
  WMILocator.Connect;

    // Prépare les options
  Options:=ObjectGetOptions.Create; // InfiniteTimeout par défaut

  SRClass:=ManagementClass.Create(Path.Path, 'SystemRestore', Options);

  EnumOptions:=EnumerationOptions.Create;
  With EnumOptions do
  Begin
   ReturnImmediately:=True;
   DirectRead:=True;
  end;

   //Récupére la collection d'instances
  SRList:= SRClass.GetInstances(EnumOptions);

  For MonObjetWMI in SRList do
   Writeln(AdjustLineBreaks(MonObjetWMI.GetText(TextFormat.Mof)));

 Except
  on E:ManagementException do
   begin
    Console.WriteLine('ErrorCode {0}',E.ErrorCode);
    Writeln('Message : ' + E.Message);
    Writeln('Source : ' + E.Source);
    if Assigned(ManagementBaseObject(E.ErrorInformation)) //extended error object
     then Console.WriteLine('Extended Description : {0}',E.ErrorInformation['Description']);
  end;
 end;
end;