This procedural type is used by the TSyntReplaceDialog.OnReplaceText Event

TOnReplaceTextEvent = procedure (Sender: TObject; const Source: ecString; var ReplaceWith: ecString) of object;