Wie kann ich die eingestellte Farbtiefe und Auflösung ermitteln?

Auflösung:

sizeX := Screen.Width;
sizeY := Screen.Height;

Farbtiefe:

function GetPaletteDepth : string;
  var DesktopDC : HDC;
      BitsPerPixel : integer;
  begin
   DesktopDC := GetDC(0);   // Device-Context des Desktops
   BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL);
   case BitsPerPixel of
     4 : Result := '16 Farben (4-Bit Farbtiefe)';
     8 : Result := '256 Farben (8-Bit Farbtiefe)';
    16 : Result := '64K Farben (16-Bit Farbtiefe)';
    24 : Result := '16M Farben (24-Bit Farbtiefe)';
    32 : Result := 'True Color (32-Bit Farbtiefe)';
   end;
   ReleaseDC(0, DesktopDC);
  end;

siehe auch:

Delphi FAQ