[ecfisa]

Hola.

Para pasar un entero a binario:

Código Delphi [-]
function IntToBin(Valor: Longint; Digitos: integer): string;
begin
  result:= StringOfChar('0', Digitos);
  while Valor > 0 do
  begin
    if Valor and 1 = 1 then
      Result[Digitos]:= '1';
    Dec(Digitos) ;
    Valor:= Valor shr 1;
  end;
end;

Luego podés recorrer la cadena resultante para asignar los valores a tu arreglo.

Saludos.