/**
     * Convert a bytes array to booleans array.
     * 
     * @param bytes
     *            The array to convert.
     * @return A booleans array from bytes array.
     */
    private boolean[] bytes2booleans(byte[] bytes) {
        boolean[] booleans = new boolean[bytes.length * 8];
        for (int iByte = 0; iByte < bytes.length; iByte++) {
            for (int iBool = 1; iBool < 8; iBool++)
                booleans[iByte * 8 + iBool] = (bytes[iByte] & (byte) Math.pow(
                        2, 8 - iBool - 1)) > 0 ? true : false;
            if (bytes[iByte] < 0)
                booleans[iByte * 8] = true;
            else
                booleans[iByte * 8] = false;
        }
        return booleans;
    }

 
 Type
   TBoolBits = array[0..7] of boolean; 
   TBoolBitsArray = array of TBoolBits; 
   TByteArray = array of byte; 
 
 Procedure BytesToBoolBits(const ByteArray: TByteArray; 
 var BoolBitsArray : TBoolBitsArray); 
 var i, L: integer; 
 begin 
   L := Length(ByteArray); 
   SetLength(BoolBitsArray, L); 
   for I := 0 to L-1 do 
   begin 
     BoolBitsArray[I,7] := (ByteArray[I] and $80) = $80; 
     BoolBitsArray[I,6] := (ByteArray[I] and $40) = $40; 
     BoolBitsArray[I,5] := (ByteArray[I] and $20) = $20; 
     BoolBitsArray[I,4] := (ByteArray[I] and $10) = $10; 
     BoolBitsArray[I,3] := (ByteArray[I] and $08) = $08; 
     BoolBitsArray[I,2] := (ByteArray[I] and $04) = $04; 
     BoolBitsArray[I,1] := (ByteArray[I] and $02) = $02; 
     BoolBitsArray[I,0] := (ByteArray[I] and $01) = $01; 
   end; 
 end;
 
                           

let rec byteListAdd nbrBits acc i = if nbrBits = 0 then acc else byteListAdd (nbrBits-1) ( (i mod 2 = 1) ::acc) (i / 2);;
let formStringToBinarySeq str =
    let strget=String.get str
    in let rec f acc i = if i = -1
        then acc
        else f (byteListAdd 8 acc (int_of_char (strget i) )) (i-1)
    in f [] ((String.length str) -1);;

'je n'ai pas utilisé Lbound() mais rien ne l'empêche
'Passer donc un tableau de base 0 (ou la modifier :) )
Private Function Bytes2Bools(Bytes() As Byte, MultiDim As Boolean) As Boolean()
Dim iByte  As Integer
Dim iBool As Integer
Dim Res() As Boolean
    'on dimensione le tableau de sortie
    If MultiDim Then
        ReDim Res(0 To UBound(Bytes), 0 To 7)
    Else
        ReDim Res(0 To ((UBound(Bytes) + 1) * 8) - 1)
    End If
    'pour chaque Byte contenu dans
    'le tableau des parametre
    For iByte = 0 To UBound(Bytes)
        'pour chaque bit du Byte
        For iBool = 0 To 7
            'suivant le choix de la dimension
            If MultiDim Then
                Res(iByte, iBool) = (((2 ^ iBool) And Bytes(iByte)) <> 0)
            Else
                Res((iByte * 8) + iBool) = (((2 ^ iBool) And Bytes(iByte)) <> 0)
            End If
        Next iBool
    Next iByte
    'on retourne le tableau construit
    Bytes2Bools = Res
End Function