delphi 的 pos 函数 对中文支持不好。

delphi 的pos函数中文下有bug. 正常情况下： 　　pos('a','abc') 返回 1； bug示范，中文情况下： 　　pos（'胺','包装服务'）=4 （⊙﹏⊙b汗）； ...