function Big5ToUnicode(str Char): widestring; var len: integer; begin len:=MultiByteToWideChar(,,PChar(str),-,); setlength(result,len-); MultiByteToWideChar(, , PChar(str), -, pwidechar(result), len+); result:=' '+result; end; MultiByteToWideChar(950