TPerlRegEx怎么获取匹配的结果

TPerlRegEx如何获取匹配的结果。
如题。本人Delphi新手，求详细说明！

[解决办法]
如果用新的正则的话. 

var 
 reg: tperlregex;

获取结果
while reg.matchagain do begin
strReg1:= reg.Groups[1];
strReg2:= reg.Groups[2];
end;

用Groups属性可以得到匹配结果列表... 其它Groups[0]表示表达式匹配到的结果
从1开始对应每个子表达式的值..