[Iskander]

Да какие там переменные... Просто координаты, которые у меня уже есть. типа, там, x=1450, а y=540 (у меня монитор 1680х1050).

Нашёл ещё один вариант:
screendc = CreateDC('DISPLAY', '', '', 0);
writeln(GetPixel(screendc,x,y));
DeleteDC(screendc);

Теперь он выводит с неопределённой периодичностью разные 10-и или 9-и значные коды (почему, блин, десятизначные? Вряд ли там альфа канал):
-1308549988 (да-да, именно минус)
855712513
1828791009
1828791009
1241588222
855712513
1241588222 (всё в хронологическом порядке).

Привожу полный текст проги (тестовой, чисто проверить):

Код:

program Cvet;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
   
  var
  a,b:integer;
  screendc: HDC;

begin

readln(a,b);
sleep(3000);
setcursorpos(a,b);
sleep(500);
screendc:= CreateDC('DISPLAY', '', '', 0);
writeln(GetPixel(screendc,a,b));
DeleteDC(screendc);

readln;

end.