[Bargest]

Берешь по два символа, переводишь из HEX в число.

Код:

a[0] := s[1] - '0';
if (a[0] > '9')
 a[0] := a[0] + '0' - 'A' + 10;
a[1] := s[2] - '0';
if (a[1] > '9')
 a[1] := a[1] + '0' - 'A' + 10;
a[0] := a[0] shl 4 + a[1];