[mks]

хех, пока писал, квак уже ответил, тока он написал как задать цвет а не как его считать)
image1.Canvas.Pixels[X,Y]:=clRed; надо заменить на color:=image1.Canvas.Pixels[X,Y];

ну до этого я и сам допер))
пасиб