procedure Save(ms: TStream); override;

This is Save, a member of class NearestNeighborClassifier.