http://www.delphi2007.net/DelphiMultimedia/html/delphi_2006120622211780.html
万分感谢帮忙的仁兄!
看看BMP的文件头结构。。
里面有关于颜色位的信息,如果没有这方面资料就搜一下
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFormFile('c:\1.bmp');
if Bitmap.Monochrome then
ShowMessage('黑白');
Bitmap.Free;
end;