delphi 遇到特殊字符截取