delphi 中文加数字的字符串如何转换成16进制数据？

Question

如题：字符串：Str := '2009，我很好'
转换成 16进制
如何转换

Answer 1

c的话是把ascii转换 ，不清楚 delphi。

Answer 2

var
  s, t : String;
begin
  s := '2009，我很好';
  SetLength(t, Length(s) * 2);
  BinToHex(PChar(s), PChar(t), Length(s));
  ShowMessage (t);
end;

Answer 3

我写的一段代码：
  begin
      str:='57 01 DB 02 FA 02 16 03 35 03 53 03 72 03 90 03 AF 03 CE 03 EC 03 0B 04 29 04 48 04 67 04 83 04 A2 04 C0 04 DF 04 FD 04 1C 05 3B 05 59 05 78 05 96 05 B5 05 00 00 02 00 00 00 00 00 00 00 02 00 58 FF';
      len:=length(str);
      for i:=1 to Round(Length(str)/3) do )
        pbuf[i-1]:=StrToInt('$'+str[i+2*(i-1)]+str[i+2*(i-1)+1]);
      Comm1.WriteCommData(@pbuf,64);
  end;