TObjectList<T> und Comparer

[Der schöne Günther]

Generische Container hin oder her, Sortierer hin oder her:

Dein TPositionComparer leitet sich von TInterfacedObject ab und realisiert ein oder mehrere Interfaces. Solche Instanzen referenzierst du entweder weiterhin über die Klasse, so wie du es mit var TCo: TPositionComparer; getan hast. Oder du verwendest nur Interface-Variablen wie bspw. var myComparer: IComparer<TPosition>) . Dann freust du dich dass es sich nun wie mit Records, Strings oder Arrays verhält: Du machst dir keine Sorgen mehr über die Freigabe und es passiert automatisch.