怎样把字符串转化为16进制 如0A转换为 H0A ？

Question

怎样把字符串转化为16进制 如0A转换为 H0A ？
  下面的代码是把它转换成了10进制了 如0A 变成了10 ，怎么把它变成我要求的16进制。
type
  BufType :array of byte;
function MakeBuffer(src :string) :BufType;
var
  buf :BufType;
  i,j :integer;
begin
  j := length(src) div 2;  
  setlength(buf,j);
  for i := 0 to j-1 do
  begin
    buf[i] := strtoint('$'+midstr(src,i*2+1,2));
  end;
  Result := buf;
end;

Answer 1

s:='100';
i:=strtoint(s);
Hs:=IntToHex(s,2);

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s,hs:string;
  i:integer;
begin
  s:='100';
  i:=strtoint(s);
  Hs:=IntToHex(i,2);
end;

Answer 3

bluz大哥不好意思：
  因为我的数值要写在注册表的binary类型的值中的10进制不行的
  binary显示出来的是24 00 0A 等
  我也要这样的类型写进去呀？