Source position: fptemplate.pp line 43
type TReplaceTagEvent = procedure(
Sender: TObject;
const TagString: string;
TagParams: TStringList;
out ReplaceText: string
) of object;