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:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TScreenCam.Bitmap2InfoHdr( Bitmap:TBitmap; var Result:PBitmapInfoHeader);
var
  wLineLen,
  wColSize,
  dwSize: integer;
  lpBits:PByte;
begin
  // DWORD align the width of the DIB
  // Figure out the size of the colour table
  // Calculate the size of the DIB
  wLineLen := (Bitmap.Width*integer(bits)+31)div 32 * 4;
  if (bits <= 8) then
    wColSize:=sizeof(RGBQUAD)* (1 SHL bits)
  else
    wColSize:=0;
  dwSize := sizeof(BITMAPINFOHEADER) + wColSize +
  wLineLen*Bitmap.Height;

  if (Result=nil) or (integer(Result^.biSizeImage)<>dwSize) then
    ReallocMem(Result, dwSize);
  InitializeBitmapInfoHeader(Bitmap.Handle,Result^,0);

  //
  // Get the bits from the bitmap and stuff them after the LPBI
  //
  lpBits := @(PBITMAPINFO(Result)^.bmiColors);

  // retrieve the bits of hbitmap and copy them into the buffer lpBits
  // using the specified format in Result
  if GetDIBits(FScreenCanvas.Handle,Bitmap.Handle,0,bitmap.Height,
     lpBits,PBITMAPINFO(Result)^, DIB_RGB_COLORS)=0 then
  begin
    messagebox(0, 'Error retrieving bitmap bits', 'Error', mb_ok);
    exit;
  end;
  if bits <= 8 then
    Result^.biClrUsed := (1 SHL bits)
  else
    Result^.biClrUsed:=0;
end;					

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

  lpBits:PByte;
  Buffer:PByteArray;
  row : Integer;
begin
.....
  lpBits := @(PBITMAPINFO(Result)^.bmiColors);
  for row := Bitmap.Height - 1 downto 0 do
    begin
      buffer := Bitmap.Scanline[row];
      CopyMemory(lpBits, buffer, wLineLen);
      inc(lpBits, wLineLen);
    end;