Source position: perlregex.pas line 88
type TPerlRegExReplaceEvent = procedure(
Sender: TObject;
var ReplaceWith: PCREString
) of object;