delphi xe6中怎么获取汉字的GB码?

因为编程需要，我在delphi6下做的汉字取GB码，在XE6下根本得不到正确的结果。后来，在看了X次帮助文档后，才找到方法如下：

function StrToGB(s:string):string;
 Var
 ByteArray: TBytes;
 i: Integer;
 begin
     //将字符串转换为16进制GB编码
    ByteArray := BytesOf(s);
    Result :='';
    for i := Low(ByteArray) to High(ByteArray) do
      Result := Result + IntToHEx(ByteArray[i],2) + ' ';
 end;

注意：

使用单元要增加：uses System.SysUtils;