1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

for a1:=0 to 1 do
  for a2:=0 to 1 do
    for a3:=0 to 1 do
      for a4:=0 to 1 do
        for a5:=0 to 1 do
          for a6:=0 to 1 do
            for a7:=0 to 1 do
              for a8:=0 to 1 do
                for a9:=0 to 1 do
                   ...erstelle Zahl					

1:

for i := 0 to 511 do					

1:
2:
3:
4:
5:
6:

var 
    Zahl: 0 .. (1 shl 9) - 1;
begin
    for Zahl := Low(Zahl) to High(Zahl) do
        //...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Function IntToBin(x: Integer): String;
Var hex: String;
    i: integer;
Const HexToBin: Array[0..$F] Of String =
       ('0000', '0001', '0010', '0011',
        '0100', '0101', '0110', '0111',
        '1000', '1001', '1010', '1011',
        '1100', '1101', '1110', '1111');
Begin
    hex := IntToHex(x, 10);
    For i := 10 Downto 1 Do
        Result := HexToBin[StrToInt('$' + hex[i])] + Result;
    While Result[1] = '0' Do
        Delete(Result, 1, 1);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

Program CountBinary;

{$APPTYPE CONSOLE}

Uses
    SysUtils;

Function DWordToBinaryStr(AValue: DWORD): String;
Type
    PByte = ^Byte;
Var
    B: PByte;
Begin
    Result := StringOfChar('0', 32);
    B := @Byte(Result[32]);
    While AValue <> 0 Do
    Begin
        Inc(B^, AValue And 1);
        AValue := AValue Shr 1;
        Dec(B);
    End;
End;

var
    Zahl: 0 .. (1 shl 9) - 1;
begin
    for Zahl := Low(Zahl) to High(Zahl) do
        WriteLn(DWordToBinaryStr(Zahl));
end.					

1:
2:
3:
4:
5:
6:
7:

function BinToAOB(s: String): Array of Boolean;
var i:integer;
begin
   SetLength(Result, length(s));
   for i := low(Result) to High(Result) do
      Result[i]:= (s[i] = '1'); // falls 1 true ist
end;