Delphi - configuración de colores

Hola
¿Cómo podría saber la configuración de colores del PC donde se ejecuta mi aplicación? Me refiero a la cantidad de colores que tiene configurado.
Gracias

Desconozco si habrá una forma más simple, pero puedes llamar a la API GetDeviceCaps para obtener la cantidad de planos y la cantidad de bist por pixel de cada plano, que multiplicados te dan la cantidad total de bits por pixel, siendo la cantidad de colores igual a 2 elevado a la cantidad de bits por pixel.

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenHDC: HDC;
Colores: longword;
begin
ScreenHDC := GetDC(0);
Colores := 1 shl (GetDeviceCaps(ScreenHDC, BITSPIXEL)
* GetDeviceCaps(ScreenHDC, PLANES));
ShowMessageFmt('%d', [Colores]);
ReleaseDC(0, ScreenHDC);
end;

Espero que te sirva.

Ernesto D'Spirito
http://www.latiumsoftware.com/es/index.php