在DELPHI 汉字截取了，如何弄好

在DELPHI 汉字截取了，怎么弄好?
就是我有一个汉字被截取了，在输入框上面看不出来，但用SQL保存时会出错

SQL脚本导出来会多了个问号？
请问如何解决？

[解决办法]
截取后使用ByteType函数，根据返回值判断一下
[解决办法]

Delphi(Pascal) code

if ByteType(CheckStr,1)=mbLeadByte thenbegin //你就多截取一位end;