Hola angelp4492, yo utilizaria un CheckListBox para poder recorrer mas facilmente.
Función que convierte de hexadecimal a binario
Código Delphi
[-]
function TForm1.HextoBinario(Hexa:string):string;
const
Binario: array [0..15] of string = ('0000','0001','0010','0011','0100','0101','0110','0111',
'1000','1001','1010','1011','1100','1101','1110','1111');
var
i : integer;
CadBinario : String;
begin
CadBinario := '';
for i:=1 to Length(Hexa) do
CadBinario := CadBinario + Binario[StrToInt('$'+Hexa[i])];
Result:=CadBinario;
end;
asignar el valor leido a los checkbox del CheckListBox
Código Delphi
[-]
var
i : Integer;
binario : String;
begin
binario := HextoBinario(ValorLeido);
for i:=0 to CheckListBox1.Count-1 do
if binario[i+1]='0' then
CheckListBox1.Checked[i] := False
else
CheckListBox1.Checked[i] := True;
end;
Saluditos