来自：http://www.aspww.cn/View/12022801.aspx

------------------------------------------------------------

1. var
2. aStr: String;
3. begin
4. aStr := 'This is a book, not a pen!';
5. ShowMessage(StringReplace (aStr, 'a', 'two', []));//This is two book, not a pen!只替换了第一个符合的字
6. ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not two pen!替换了所有符合的字
7. aStr := 'This is a book, not A pen!';
8. ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll]));//This is two book, not A pen!只替换了符合的字(小写a)
9. ShowMessage(StringReplace (aStr, 'a', 'two', [rfReplaceAll, rfIgnoreCase]));//This is two book, not two pen!不管大小写替换了所有符合的字
10. end;

rfReplaceAll：全部替换
rfIgnoreCase：忽略大小写