[Kirvisniemi]

функция Hex2Dec(Str:Text[30]):Integer

IF Str[1]>='A' THEN BEGIN
   StrTemp:=CONVERTSTR(Str,'ABCDEF','012345');
   EVALUATE(iTemp,FORMAT(StrTemp[1]));
   iTemp := iTemp+10;
END ELSE
   EVALUATE(iTemp,FORMAT(Str[1]));

Result := iTemp*16;

IF Str[2]>='A' THEN BEGIN
   StrTemp := CONVERTSTR(Str,'ABCDEF','012345');
   EVALUATE(iTemp,FORMAT(StrTemp[2]));
   iTemp+=10;
END ELSE
   EVALUATE(iTemp,FORMAT(Str[2]));

Result+=iTemp;
EXIT(Result);