Как определить код цвета произвольной точки экрана

var

  DC: HDC;
  Color: Cardinal;
begin

  DC := CreateDC('MONITOR', nil
, nil
, nil
);
  Color := GetPixel(DC, 300, 300);
  DeleteDC(DC);
end
;

Другое по теме:

• Работа с палитрой
• Перевод RGB в GRAY
• Преобразование цвета RGB 34 HLS