procedure CurrentStepProgress(totalPatters: integer; learnedPatterns: integer; itternation: longint); virtual;

This is CurrentStepProgress, a member of class TTrainingCallback.