Source position: keditcommon.pas line 285
type TKEditReplaceTextEvent = procedure(
Sender: TObject;
const TextToFind: string;
const TextToReplace: string;
var Action: TKEditReplaceAction
) of object;