1:

type ByteArray = Array of Byte;                    

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

var
  temp_bitmap: TBitmap;  // temporary Bitmap
  temp_data: ByteArray;  // the "real" data
  p: pByte;  // data of one pixel
  w: Integer;  // width
  h: Integer;  // height
  i, i2, c: Integer; // iterations                    

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

  p := temp_bitmap.Scanline[0];  // first scanline

  for i := 0 to 3*(w-1)*(h-1) do begin  // rows
    temp_data[i] := p;
    Inc(Integer(p), 1);  // next pixel-color
  end;                    

1:

Inc(Integer(p), 1);                    

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

  p := temp_bitmap.Scanline[0];  // first scanline

  {read each pixel and color one-by-one}
  for i := 0 to (h - 1) do begin  // rows
    SetLength(temp_data[i], 3*w);
    for j := 0 to (3*w - 1) do begin
      temp_data[i][j] := p^[j];
    end;

   Inc(p, 1);
  end;                    

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

  p := temp_bitmap.Scanline[0];  // first scanline

  { bitmaps are saved in reversed order -> "-"
    ds = difference between two ScanLines }
  ds := Integer(temp_bitmap.Scanline[1]) - Integer(p);

  {read each pixel and color one-by-one}
  for i := 0 to (h - 1) do begin  // rows - loop
    SetLength(temp_data[i], 3*w);  // reserve memory for the pixels

    for j := 0 to (3*w - 1) do begin  // pixel-data - loop
      temp_data[i][j] := p^[j];  // getdata fom memory and store it temporarly
    end;

    Inc(Integer(p), ds);  // next ScanLine
  end;