十六进制 D6DC 如何转换成字符 ‘周’ ( 积分: 20 )

汉字‘周’转换为十六进制值为 D6DC
可我用下面的代码只能转换一般十六进值，却不能把D6DC转为'周'
var s:string;
begin
s:=edit1.text;
edit2.text:=widechar(StrToInt('$'+s));
end;
请问怎么办？谢谢！

汉字‘周’转换为十六进制值为 D6DC
可我用下面的代码只能转换一般十六进值，却不能把D6DC转为'周'
var s:string;
begin
s:=edit1.text;
edit2.text:=widechar(StrToInt('$'+s));
end;
请问怎么办？谢谢！

给分吧：
procedure TForm1.Button1Click(Sender: TObject);
var
hex_string:string;
a1,a2:integer;
begin
hex_string:='D6DC';
a1:=strtoint(Format('%d',[StrtoInt('$'+copy(hex_string,1,2))]));
a2:=strtoint(Format('%d',[StrtoInt('$'+copy(hex_string,3,2))]));
caption:=char(a1)+char(a2);
end;

谢谢！给分