delphi 判断录入汉字