Verificar cadena es Hexadecimal

[yapt]

Hola a todos,

estoy desarrollando una clase de calculo de CRC y necesito una ayudita.

Para calcular el CRC, solicito una cadena de longitud X, pero que hay que pasar en HEXadecimal.

Lo que necesito es una rutina, rápida, que chequee que todos los carácteres del string están en el rango Hexadecimal (0..9,A..F).

La cadena, puede ser de cualquier longitud. Y se trata de no "cargar" la clase con librerias externas, etc...

De momento, lo he hecho así:

result := false, //error;
for x := 0 to (length(cadena)-1 do
if not TryStrToInt('$'Cadena[x],basura) then exit;
result := true; // ok.

Gracias.