Как правильно решить следующую задачу —
есть Collection: TCollection,
нужно отсортировать элементы TCollection (TCollectionItem) в соответствии с некоторым свойством каждого элемента коллекции.
Любой механизм сортировки предполагает обмен элементов местами.
Но код подобный следующему

P: Pointer;

P := Item[0];
Item0 := Item[1];
Item[1] := TCollectionItem[P]

не работает, в силу того, что Item0 := Item[1] неявно вызывает метод assign, вместо того, чтобы переадресовать указатель на объект (как этого хотелось бы)

Владимир Мусулайнен