怎样把INTTOHEX的字符串转变为INTEGER？？？(100分)

有没有函数？？？？

procedure TForm1.Button5Click(Sender: TObject);
var
i,n:integer;
s:string;
begin
i:=1000;
s:=inttohex(i,10);
try
n:=strtoint('$0'+trim(s));
///////////////////////
showmessage(inttostr);
except
end;
end;