1.10进制转16进制
intTohex(10,4); //第一个参数为要转换的数据，第二个参数为要转换后的16进制位数；得到：000A;
2. 16进制转10进制
strToInt(‘$‘+‘64‘) ; //前面加上$符合，然后再加上要转换的16进制；
一个16进制转10进制的函数：
function myHexToInt(value:string):Byte;begin Result:=StrToInt(‘$‘+value);end;原文：http://www.cnblogs.com/delphiclub/p/4167999.html