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.