如何把16进制的一串字符，变成真正的16进制显示

var
  str , sResult, sTemp:string;
  iLen, iStart: Integer;
begin
  Str := '#$CE#$D2#$B0#$AE#$C4#$E3' ;  // 中文“我爱你”
  str := StringReplace(str, '#', '', [rfReplaceAll]);
  iLen := length(str);
  iStart := 1;
  while iStart < iLen do
  begin
    sTemp := copy(str, iStart, 3);
    sResult := sResult + Char(StrToInt(sTemp));
    iStart := iStart + 3;
  end;
  ShowMessage(sResult);