var
  C2 : Char;
begin
  C2 := Chr(65);
  Showmessage(C2);  //'A'
end;


var
  C : WideChar;
begin
  C := WideString(Chr($B0) + Chr($A1))[1];
  Showmessage(C); // '呵'
end;

啊

我写得有点复杂，不过对你有益

十分感谢!!!!