procedure TrainWithCoach(c: Coach; fe: TObject; callback: TTrainingCallback = nil);

This is TrainWithCoach, a member of class TOCRNetwork.