procedure Train(c: Coach; callback: TTrainingCallback); virtual; abstract;

This is Train, a member of class Classifier.