delphi中ASCII转换成汉字的问题（各位大侠请赐教）

Question

大侠:   我现在已经实现从汉字转换成ASCII
var
  p:widestring;
  i1,i2:integer;
begin
  p:='你好';
   i1=ord(p[1]);//i1=20320 你
   i2=ord(p[2]);//i2=22909 好
end;现在我要把20320转换成“你”，22909转换成“好”，怎么办？
各位大侠请赐教，小弟将不胜感激

Answer 1

begin
  ShowMessage(string(WideChar(20320)) + string(WideChar(22909)));
end;

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
var
  s:string;
begin
  s:=chr(196)+chr(227);
  edit1.Text:=s;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  p:string;
  i1,i2:integer;
begin
  p:='你好';
  i1:=ord(p[1]);//i1=20320 你
  i2:=ord(p[2]);//i2=22909 好
  showmessage(inttostr(i1));
  showmessage(inttostr(i2));
end;