* Add TList.ExtractAt for delphi compatibility

packages/rtl-generics/src/generics.collections.pas

@@ -290,6 +290,7 @@ type
     procedure Delete(AIndex: SizeInt); inline;
     procedure DeleteRange(AIndex, ACount: SizeInt);
     function ExtractIndex(const AIndex: SizeInt): T; overload;
+    Function ExtractAt(const AIndex: SizeInt): T; inline;
     function Extract(const AValue: T): T; overload;
 
     procedure Exchange(AIndex1, AIndex2: SizeInt); virtual;
@@ -1749,6 +1750,14 @@ begin
   Result := DoRemove(AIndex, cnExtracted);
 end;
 
+
+function TList<T>.ExtractAt(const AIndex: SizeInt): T;
+begin
+  Result:=ExtractIndex(AIndex);
+end;
+
+
+
 function TList<T>.Extract(const AValue: T): T;
 var
   LIndex: SizeInt;