TsConfirmReplacementEvent

type TsConfirmReplacementEvent = procedure(

  Sender: TObject;

  AWorksheet: TsWorksheet;

  ARow: Cardinal;

  ACol: Cardinal;

  const ASearchText: string;

  const AReplaceText: string;

  var AResult: TsConfirmReplacementResult

) of object;