1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure DoIt;
var
  bmp: TBitmap; // unit graphics
  y,x: integer;
  line: PByteArray;

begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('Deine Datei');
  bmp.PixelFormat := pf24Bit; // damit ist immer klar wie die daten aussehen
  for y := 0 to bmp.Height-1 do
  begin
    line := bmp.ScanLine[y];
    for x := 0 to bmp.Width-1 do
    begin
      //line[x*3+0]  // blau
      //line[x*3+1]  // grün
      //line[x*3+2]  // rot
    end;
  end;
  bmp.Free;
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:
30:
31:
32:

 ByteI:=54;
    while eOf(BmpFile)<> true do       // So Lange das Ende der Datei nicht erreicht ist, mache...
    begin
      BlockRead(BmpFile,Buffer[0],SizeOf(Buffer),ResultRead);       //Ab der Stelle Buffer[0] Werden 1024 Bytes eingelesen
      if(MessageI <= MessageL) then
      begin
        while (ByteI) <= (ResultRead) DO                //Durchlaufen bis zum 1024 gespeicherten Bytes
        begin
         if (Buffer[ByteI] and (1 shl 0)) = (1 shl 0) then //Fehler     //Wenn LSB = 1 dann...
          begin
            if (StrToInt(MessageT[MessageI]) = 0) then    //Prüfe ob es 0 ist
            begin
              Buffer[ByteI]:=(Buffer[ByteI] shr 0);
              Buffer[ByteI]:=(Buffer[ByteI] shl 0);
            end;
          end;

          if (Buffer[ByteI] and (0 shl 0)) <= (0 shl 0) then     //Wenn LSB = 0 ist dann..
          begin
            if(StrToInt(MessageT[MessageI]) = 1) then     // Prüfe ob Bit =1 ist
            begin
              Buffer[ByteI]:=Buffer[ByteI] or (1 shl 0);
            end;
          end;
          inc(ByteI);
          inc(MessageI);
        end;
        ByteI:=0;
      end;
      //Schreiben der Bytes [Manipuliert]
      BlockWrite(f     ,Buffer[0],ResultRead,    ResultWrite);     //Ab der Stelle Buffer[0] Werden 1024 Bytes geschrieben
    end;