1:

(myByte And (1 shl (x mod 8)))>0					

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

      SetLength(bild,height);
      for y:=0 to height-1 do begin
        SetLength(bild[y],width);
        for x:=0 to width-1 do begin
          bild[y][x]:=(source[(x + y * width) shr 3] And (1 shl (x mod 8)))>0;
        end;
      end;					

1:
2:

if Zahl and (1 shl BitNummer) > 0 then
   ... {gesetzt}					

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:

type 
  pbyte = ^byte;
var
  tmp ; byte;
  pSource,
  pGoal  : pByte;
...

pSource := @source[0];// Zeiger auf das erste Element;

y := 0;
while y< height do
  begin
  SetLength(bild[y],width); 
  pGoal :=@bild[y][0];//Adresse wohin gespeichert wird
  x := 0;
  while x< width do
    begin
    tmp :=pSource^; // Element merken
    For i := 0 to 7 do
      begin
      pGoal^ := tmp AND 1;
      inc(pGoal);
      tmp := tmp shr 1; // nacheinander erscheinen die Bit an Position 0   2^0 = 1
      end; 
    inc(x,8);
    end;
  inc(y);
  end;