procedure Train(c: Coach; callback: TTrainingCallback); override;

This is Train, a member of class NearestNeighborClassifier.