Delphi 中使用正则表达式, 目前 PerlRegEx 是首选。