delphi 的 pos 函數 對中文支持不好。

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