Как узнать количество бит в цветовой палитре

function GetDisplayColors: integer;
var
  tHDC: hdc;
begin
  tHDC := GetDC(0);
  result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14);
  ReleaseDC(0, tHDC);
end;

Другое по теме:

• Работа с палитрой
• Перевод RGB в GRAY
• Преобразование цвета RGB 34 HLS