Да нет, немного по-другому этот код работает чем описано, образец не с экрана поступает, а из битмапа с, проще отслеживать напрямую, примерно так
Код:
var
DC: HDC;
begin
DC:= GetDC(0);
Panel2.Color:= GetPixel(DC, X, Y);
ReleaseDC(0, DC);
end;
Насчёт "Как правильно прописать в процедуре TScan.Execute условие когда в заданой области нет того самого цвета" у пары if..then есть замечательное дополнение else, это как раз второе условие когда не выполняется первое
Идею в принципе уловил, непонятки лишь насчёт отслеживаемых пикселей что в промежутке между X1Y1..X2Y2, как они определяются, предложенный из drkb кусман проверен на обработчике сдвига мышки, панелька окрашивается в цвет пикселя что под курсором, оно работает