TBitmap转换位数的问题32位->24位, 32位->4位

[dtwstm]

诚心请教大牛:
在TBitmap中存有图片, 用Savetofile('aaa.bmp')后得到的图片为32位

现在希望能存为24bit的bmp图片, 应该如何操作?

另有一图片也是32bit, 包含16种颜色, 即已经知道调色板的颜色值, 图片上已有颜色也均在调色板颜色之内, 如何存为4bit的bmp图片?

诚心请教, 感谢:-)

[postren]

设置Bitmap.PixelFormat
TPixelFormat = (pfDevice, pf1bit, pf4bit, pf8bit, pf15bit, pf16bit, pf24bit, pf32bit, pfCustom);

[dtwstm]

多谢 已经找到答案了

没想到没想到 Delphi处理这个问题这么简单
差点昨天用VC写个DLL了...

[postren]

例如：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
BP: TBitmap;
begin
BP := TBitmap.Create;
try
BP.LoadFromFile('C:\32.bmp');
BP.PixelFormat := pf24bit;
BP.SaveToFile('C:\24.bmp');
finally
BP.Free;
end;
end;