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

This is Train, a member of class Recognizer.