Was ist das denn für ein Anfängerfehler in procedure TKMeans<T>.GroupData2NearestCluster?
Delphi-Quellcode:
SetLength(UpdateCluster.ClusterElements,
length(UpdateCluster.ClusterElements) + 1);
Das wird doch bei jeden neuen Vergrößern alle Daten umkopiert! Und das wird sehr schnell sehr groß!