Lazarus汉字与16进制互转

我没有修改代码编辑器为本地的编码。默认使用utf-8.所以转换总是要涉及解码。 

program Project1;

uses
  SysUtils;

var
  i: string;
  j:integer;
  k:shortstring;
  m:smallint;
begin
 //汉字转16进制编码。
 i:='一龥';
 m:=1;
 for  m:=1 to  length(utf8decode(i)) do
 begin
   j:=integer(utf8decode(i)[m]);
   k:=hexstr(j,4);
   Writeln(k);
 end;
 //16进制转汉字
 writeln(utf8decode('4e00转成的汉字为:')+ widechar(strtoint('$'+'4e00')));
 readln;
end.