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

This is CurrentStepProgress, a member of class TTemplateLibraryCallback.