Duda con Checkbox

[*Caro*]

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