[fpc-pascal] Swopping two items in TCollection

[Wimpie Nortje]

Hi list

I have a class derived from Tcollection, holding items derived from 
TCollectionItem. How do I swop two items in the collection? FItem is of 
type TList which has an exchange function, but that is private and not 
accessable to me.