now popping off of releasedIDs

Author: matortheeternal

src/xeMeta.pas

@@ -260,12 +260,13 @@ procedure StoreIfAssigned(const x: IInterface; var _res: PCardinal; var Success:
 
 function Store(const x: IInterface): Cardinal;
 var
-  i: Integer;
+  i, n: Integer;
 begin
   if _releasedIDs.Count > 0 then begin
-    i := _releasedIDs[0];
+    n := _releasedIDs.Count - 1;
+    i := _releasedIDs[n];
     _store[i] := x;
-    _releasedIDs.Delete(0);
+    _releasedIDs.Delete(n);
     Result := i;
   end
   else