[AlekseySV]

Ув.программисты, помогите пожалуйста найти оптимальное решение.
Программа делает скрин, вырезает определенную его часть и делает поиск количества пикселов определенного цвета, данной функцией:

Код:

Function PoiskCveta(Skrin:TBitmap;Color1:Cardinal;Color2:Cardinal): Integer;
var
  x, y: Integer;
  bm: TBitmap;
  Resultat: Integer;
begin
  Resultat:= 0;
  bm := TBitmap.Create;
  bm.Assign (Skrin);
  for x:=1 to bm.Width  do
    for y:=1 to bm.Height do
      if (bm.Canvas.Pixels[x,y]=Color1) Or (bm.Canvas.Pixels[x,y]=Color2) then
      Begin
      Resultat:= Resultat + 1;
     End;
     bm.Free;
     Result:=Resultat;
end;

Админ: Пользуемся тегами для оформления кода.

Суть проблеммы: Как определить мерцающую точку ? , точка мерцает красным цветом и естественно скрин попадает постоянно на оттенок красного.