procedure DoTrainingProgress; virtual;

This is DoTrainingProgress, a member of class TCustomNeuroNetwork.