TReplaceTextEvent

type TReplaceTextEvent = procedure(

  Sender: TObject;

  const ASearch: string;

  const AReplace: string;

  Line: Integer;

  Column: Integer;

  var ReplaceAction: TSynReplaceAction

) of object;