From 3b8a4137a5504cb04cb1b4be5b36c1139f91243a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 25 Feb 2025 16:10:43 +0100
Subject: [PATCH] * IInterfaceListEx

---
 rtl/objpas/classes/classesh.inc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/classes/classesh.inc b/rtl/objpas/classes/classesh.inc
index 977cd3b95e..da7af6f663 100644
--- a/rtl/objpas/classes/classesh.inc
+++ b/rtl/objpas/classes/classesh.inc
@@ -2679,7 +2679,14 @@ type
     property Current: IUnknown read GetCurrent;
   end;
 
-  TInterfaceList = class(TInterfacedObject,IInterfaceList)
+  IInterfaceListEx = interface(IInterfaceList)
+    ['{FDB39D70-65B9-4995-9436-6084ACA05DB3}']
+    function GetEnumerator: TInterfaceListEnumerator;
+  end;
+
+  { TInterfaceList }
+
+  TInterfaceList = class(TInterfacedObject,IInterfaceList,IInterfaceListEx)
   private
     FList : TThreadList;
   protected