function BitsPerPix(Bitmap: TBitmap): Integer; 
var  
  I: TBitmapinfo; 
begin 
  I.bmiHeader.biSize := SizeOf(TBitmapinfoheader); 
  I.bmiHeader.biBitCount := 0; 
  GetDiBits(Bitmap.Canvas.Handle, Bitmap.Handle, 0, 0, nil, I, DIB_RGB_COLORS); 
  Result := I.bmiHeader.biBitCount; 
end; 
 
// Aufruf 
procedure TForm2.Button1Click(Sender: TObject); 
var 
  bpp: Integer; 
begin 
  bpp := BitsPerPix(Image1.Picture.Bitmap); 
  if bpp = 0 then 
    showmessage('Bild ist keine Bitmap oder die Bitmap ist leer') 
  else 
    showmessage(IntToStr(bpp)); 
end;