* TCollection.Exchange also needs to notify

git-svn-id: trunk@22258 -

rtl/objpas/classes/collect.inc

@@ -419,6 +419,7 @@ procedure TCollection.Exchange(Const Index1, index2: integer);
 
 begin
   FItems.Exchange(Index1,Index2);
+  FPONotifyObservers(Self,ooChanged,Nil);
 end;