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:

  FillChar (bInfo, SizeOf(bInfo), 0);
  with bInfo.bmiHeader do
  begin
      biSize := SizeOf(bInfo.bmiHeader);
      biWidth := bmp.Width;
      biHeight := -bmp.Height;
      biPlanes := 1;
      biBitCount := 16;
      biCompression := BI_BITFIELDS;
  end;
  with bInfo.bmiColors[0] do begin
    rgbRed   := $F800; //1111 1000 0000 0000
    rgbGreen := $07E0; //0000 0111 1110 0000
    rgbBlue  := $001F; //0000 0000 0001 1111
  end;
  buffer := GetMem(bmp.Width * bmp.Height * 4);
  try
  if GetDIBits(bmp.Canvas.Handle, bmp.Handle, 0, bmp.Height, buffer, bInfo, DIB_RGB_COLORS) = 0 then
    raise Exception.Create(format('unable to read bitmap data. error code: %d', [GetLastError]));

  //do something with the data

  finally
    Freemem(buffer);
  end;