Source position: fpsonar.engine.pp line 34
type TFpSonarProgressEvent = procedure(
const aFile: string;
aIndex: Integer;
aTotal: Integer;
out aContinue: Boolean
) of object;