var
reg: TPerlRegEx;
begin
reg := TPerlRegEx.Create(nil);
reg.Subject := "C++Builer";
reg.RegEx := reg.EscapeRegExChars("C+") + "{2}"; {相当于 "C+{2}"}
reg.Replacement := "◆";
reg.ReplaceAll;
ShowMessage(reg.Subject); {返回: ◆Builer}
FreeAndNil(reg);
end;