procedure Save(stream: TStream);

This is Save, a member of class TKDTreeNearestNeighborClassifier.