串口通信问题(100分)

如何把中文字符串转化为十六进制？
又如何把十六进制转化为字符赚？
比如“中华人民共和国”十六进制为“。。。。。。。”，
一串十六进制“。。。。。。”转化为“中华人民共和国”
在线等待，谢谢！！！

字符串轉16進制:
function ASCIIToHex(str:sting):Longint;
var
i:longint;
j:integer;
begin
i:=0;
for j:=1 to Length(str) do
i:=i*256+ord(str[j]);
result:=j;
end;
16進制轉字符
function HEXToASII(hexint:Longint):string;
var
str:string;
j:integer;
begin
str:='';
j:=0;
repeat
str:=str+char((hexint shr (j*8))mod 256);
hexint:=hexint div 256;
until hexint=0;
result:=str;
end;