Source position: chmfilewriter.pas line 35
type TChmProgressCB = procedure(
Project: TChmProject;
CurrentFile: string
) of object;