[vitalik1]

Kostia
1) Рисуй картинку на экране и работай.
Нарисовать картинка: procedure DrawImage(img: image; x,y: integer);
Получить цвет пиксела: 2)
Нарисовать пиксел: 3)
получть картинку с экрана:
function ImageFromCanvas(x,y,width,height: integer): image;

2) В либе Lib_ui вроде есть функция:
get_color(x,y: integer)
3) Стандартная функция :
function plot(x,y: integer);