困惑了一周的问题了，帮帮忙啊！！！！！！！！！！

Question

var
i:Integer;
j:String;
Input:WideString;
re:String;
begin
j:='中国';
Input:=j;
re :='';
for i := 1 to Length(Input) do
re := re + Format('%4.4X', [ord(Input[i])]);
Edit1.Text:=re;
end;end.
一上代码将中文转换成了PDU格式的字符串
怎么将转换成的字符串在转换成中文啊！！！

Answer 1

var
  i,L:integer;
  input:string;
  WC:dword;
  output:widestring;
begin
  Input:=Edit1.Text;
  L:=Length(Input) div 4;
  output:='';
  for i:= 0 to L-1 do
  begin
    WC:=StrToIntDef('$'+Copy(Input,i*4+1,4),0);
    output:=output+widechar(wc);
  end;
  edit2.Text:=output;
end;