* Add ContainsObject to TStrings. Patch from Bart. Fixes issue #41405

rtl/objpas/classes/classesh.inc

@@ -1022,7 +1022,8 @@ type
     function GetEnumerator: TStringsEnumerator;
     procedure GetNameValue(Index : Integer; Out AName,AValue : String);
     function GetText: PChar; virtual;
-    function Contains(const S: string): Boolean; 
+    function Contains(const S: string): Boolean;
+    function ContainsObject(const AObject: TObject): Boolean; inline;
     function IndexOf(const S: string): Integer; virtual;
     function IndexOf(const S: string; aStart : Integer): Integer; virtual;
     function ContainsName(const Name: string): Boolean; virtual;

rtl/objpas/classes/stringl.inc

@@ -1305,6 +1305,12 @@ begin
   Result:=Indexof(S)<>-1;
 end;
 
+Function TStrings.ContainsObject(const AObject: TObject): Boolean;
+
+begin
+  Result:=IndexOfObject(AObject)<>-1;
+end;
+
 Function TStrings.IndexOf(const S: string): Integer;
 begin
   Result:=0;