[PhoeniX]

В этой строчке снимается в битмап скриншот, со смещением (sx,sy), и размерами w*h:

Код:

BitBlt(screenb.Canvas.Handle, 0, 0, w, h, GetDC(0), sx, sy, SRCCOPY);

Так ищем пиксель:

Код:

  for y:=0 to h - 1 do
    begin
      line := screenb.ScanLine[y];
      for x:=0 to w - 1 do
        begin
          with line[x] do
            if RGB(rgbtRed,rgbtGreen,rgbtBlue)=color then
            begin
              ..... // Пиксель Н-ного цвета найден - делаем, что надо...
            end;
        end;
      end;

Дальше - думай, как компоновать...