Bmp.PixelFormat := pf24bit;
  首行扫描线地址:
  Scan0 := Bmp.ScanLine[Bmp.Height - 1];
  24位位图每线字节数(其它位数的位图可修改24):
  Stride := (((24 * Bmp.Width) + 31) and $ffffffe0) shr 3;