Получить текущую глубину цвета

function
 GetColorDepth: string
; 
var
 
  DesktopDC: HDC; // LongWord 
  BitsPerPixel: Integer; 
begin
 
  DesktopDC    := GetDC(0); 
  BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL); 
  case
 BitsPerPixel of
 
    4: Result  := '4-Bit'; 
    8: Result  := '8-Bit'; 
    16: Result := '16-Bit'; 
    24: Result := '24-Bit'; 
    32: Result := '32-Bit'; 
  end
; 
  ReleaseDC(0, DesktopDC); 
end
; 

procedure
 TForm1.Button1Click(Sender: TObject); 
begin
 
  ShowMessage(GetColorDepth); 
end
;

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

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