delphi做屏幕截图怎么生成24位的图片？小弟我老是截出32位的

delphi做屏幕截图如何生成24位的图片？我老是截出32位的。
delphi做屏幕截图如何生成24位的图片？我老是截出32位的。
[解决办法]
var bmp1: TBitmap;

bmp1.PixelFormat := pf24bit;