Source position: fpindexer.pp line 78
type TIndexLogEvent = procedure(
Sender: TObject;
aType: TIndexLogType;
const aMessage: string
) of object;