Source position: fpindexer.pp line 266
type TIndexProgressEvent = procedure(
Sender: TObject;
const ACurrent: Integer;
const ACount: Integer;
const AURL: UTF8String
) of object;