DELPHI - FAQ

function Farbaufloesung :integer;
var  h :hdc;
begin
 h:=getDC(0);
 if h<>0 then begin
  Result:=GetDeviceCaps(h,BITSPIXEL);
  ReleaseDC(0,h);
 end else Result:=0;
end;