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

This is CurrentStepProgress, a member of class TOCRTrainingCallbackImpl.