//Uses Process,...

function isMacDarkMode: Boolean;
var s:ansistring;
begin
  RunCommand('/usr/bin/defaults',['read','-g','AppleInterfaceStyle'],s);
  Result:=(pos('Dark',s)>0);
end;