多字符串全文匹配替换算法　怎么做

目前用的 
stringreplace
　在替换一条时很好用，但要有多条的话，
for i:=0 to xx do
begin
 stringreplace....
end;
发现在要匹配的子串很多，比如说上万　十万之类。会特别慢。　用fastreplace也不理想。　因为每替换一次就要把全文扫一变。每个子串扫一次，子串多了会特别慢。
貌似有个AC　叫多模式匹配　？？自己水平有限，没法实现。求大侠给点示例代码实现快速超多子串替换。。。思路也可以~~~

delphi中,也有正则表达式控件的,对字串匹配,它的算效率应该可以
其中之一
http://www.regular-expressions.info/delphi.html
你可试一下