Source position: rlfinddialog.pas line 51
type TRLOnFindEvent = procedure(
Sender: TObject;
const Text: string;
Options: TRLFindOptions;
var Found: Boolean
) of object;