delphi怎样将16进制转换成10进制

在delphi中输出的值是16进制显示，怎样将输出的值转换成10进制显示

---

function HexToInt(str:string) : word;
var
i , value : word;
pos : word;
begin
value:=0;
pos:=length(str);
for i:=1 to pos do
begin
case str[i] of
'f','F':
value := value*16+15;
'e'升戚,'E':
value := value*16+14;
'd','D':
value := value*16+13;
'c','C':
value := value*16+12;
'b','B':
value := value*16+11;
'a','A'型租:
value := value*16+10;
'0'..'9'吵租陵:
value := value*16+ord(str[i])-ord('0');
else
result:=value;
exit;
end;
result:=value;
end;
end;

---