XE7 自带正则 tRegEx.Matches匹配3000个 超出内存

提取网址中的链接区域{xxxx}
1、matches:=tRegEx.Matches(s,pat,[roSingleLine,roIgnoreCase]);
2、ShowMessage(matches.Count.ToString());正确结果有3000个的 
但执行到第1行 提示out of memory 好坑的IDE啊 ，这么频繁使用的一个函数，竟然也有问题，求解决办法 。