Как узнать количество цветов у экрана?

Функция на Delphi для определения текущего количества цветов у экрана:

//в битах
function NumOfColors: Byte;
var
  tHDC: hdc;
begin
  tHDC := GetDC(0);
  result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14);
  ReleaseDC(0, tHDC);
end;