奇怪的问题？高手进来看看啊。

Question

我在richedit中输入韩语，然后将richedit中韩语转成Unicode对应数字然后将每个Unicode码存在WideChar里，结果都变成？了。可是同样的做法在C++Bulider中是可以的啊。原代码
var
    tmpsubchr: array of Char ;
    tmpinfopos: Integer ;
    tmpinfo: array of WideChar ;
    dwTempHex , dwUnc: LongWord ;
dwTempHex := HexToInt(PChar(tmpsubchr));
if Oem2Unc1(dwTempHex, dwUnc, $3F) >= 0 then //这里得到Unicode码放在dwUnc中（如：12596）
begin
  tmpinfo[tmpinfopos] := WideChar(dwUnc);  //这里得到的tmpinfo[tmpinfopos]全是？
  tmpinfopos := tmpinfopos + 1 ;
end
else
begin
  tmpinfo[tmpinfopos] := WideChar($3F);
  tmpinfopos := tmpinfopos + 1 ;
end ;