function Hex2Int(st:string):integer;
var i,ln:integer;
begin
//   st := LowerCase(st); // Убрать. 
   Result := 0;
   ln := Length(st);
   for i := 1 to ln do
     case st[i] of
      '0'..'9': Result := Result shl 4 + ord(st[i]) - 48;
      'A'..'F': Result := Result shl 4 + ord(st[i]) - 55; // Добавить
      'a'..'f': Result := Result shl 4 + ord(st[i]) - 87;
      else break;
     end;
end;