procedure DoTagEvent(Tag: TTag; const TagString: string; TagParams: TStrings; var ReplaceText: string); dynamic;

__fastcall DoTagEvent(TTag Tag, const AnsiString TagString, TStrings TagParams, AnsiString ReplaceText);