HexToInt

function hextoint(s:string):integer;
var i,k,a,len:integer;
begin
  k:=0;
  len:=length(s);
  for i:=1 to len do
  begin
    case s[i] of
      '0':a:=0;
      '1':a:=1;
      '2':a:=2;
      '3':a:=3;
      '4':a:=4;
      '5':a:=5;
      '6':a:=6;
      '7':a:=7;
      '8':a:=8;
      '9':a:=9;
      'A':a:=10;
      'B':a:=11;
      'C':a:=12;
      'D':a:=13;
      'E':a:=14;
      'F':a:=15;
    end;
    k:=k*16+a;
  end;
  result:=k;
end;