delphi 多个字符比较函数