[zip000]

Код:

var
  dc : HDC;
  cp : TPoint;
  pix : Cardinal;
........................
  dc := GetDC(0);
  GetCursorPos(cp);
  pix := GetPixel(dc, cp.X, cp.Y);
  ReleaseDC(0, dc);

В переменной pix будет цвет пиксела под курсором.