Recognizer Class
procedure Train(c: Coach; callback: TTrainingCallback);
This is Train, a member of class Recognizer.