Connaitre le nombre de couleur utilisé dans l'affichage

function Farbtiefe : string;
var
DesktopDC : HDC;
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
Label1.Caption:=Farbtiefe;
end;