Распознавание чисел по пикселям

[Entropy]

Уважаемые программисты, не поможете разобраться с кодом? Замутил я распознавание чисел по 4 пикселям во флеш (интернет-казино) для сбора статы. Числа распознаются корректно, но вот программа через некоторое время после загрузки зависает. Если не лень, поправьте код: я не программист, только знакомлюсь с делфи, так что извините за "колхозный код" без циклов и массивов.
Может вообще весь код выкинуть и не морочить себе голову?

//определение пикселей (на числах)
procedure TForm1.getColor;
begin
//1
  DC:=GetDC(0);
  Pix1a:=GetPixel(DC, 926{X}, 99{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1b:=GetPixel(DC, 929{X}, 97{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1c:=GetPixel(DC, 931{X}, 103{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1d:=GetPixel(DC, 931{X}, 107{Y});
  ReleaseDC(0, DC);

//2
  DC:=GetDC(0);
  Pix2a:=GetPixel(DC, 926{X}, 96{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2b:=GetPixel(DC, 931{X}, 104{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2c:=GetPixel(DC, 929{X}, 106{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2d:=GetPixel(DC, 927{X}, 108{Y});
  ReleaseDC(0, DC);
   .....

//действия
  //1
  if (GetRValue(Pix1a)=4) and (GetGValue(Pix1a)=52) and (GetBValue(Pix1a)=28)
  and (GetRValue(Pix1b)=4) and (GetGValue(Pix1b)=52) and (GetBValue(Pix1b)=28)
  and (GetRValue(Pix1c)=4) and (GetGValue(Pix1c)=52) and (GetBValue(Pix1c)=28)
  and (GetRValue(Pix1d)=4) and (GetGValue(Pix1d)=52) and (GetBValue(Pix1d)=28)
  and (GetRValue(Pixs)=27) and (GetGValue(Pixs)=27) and (GetBValue(Pixs)=64)
   then begin
  Memo1.Lines.Insert(0,'1')

  //2
  end else
  if (GetRValue(Pix2a)=4) and (GetGValue(Pix2a)=52) and (GetBValue(Pix2a)=28)
  and (GetRValue(Pix2b)=4) and (GetGValue(Pix2b)=52) and (GetBValue(Pix2b)=28)
  and (GetRValue(Pix2c)=4) and (GetGValue(Pix2c)=52) and (GetBValue(Pix2c)=28)
  and (GetRValue(Pix2d)=4) and (GetGValue(Pix2d)=52) and (GetBValue(Pix2d)=28)
  and (GetRValue(Pixs)=27) and (GetGValue(Pixs)=27) and (GetBValue(Pixs)=64)
 then begin
  Memo1.Lines.Insert(0,'2')

  //3
  end else
   .....

end else begin
   sleep(2000);
   Start.Perform(WM_LBUTTONDOWN, 0, 0); Start.Perform(WM_LBUTTONUP, 0, 0);
  end;
   Start.Perform(WM_LBUTTONDOWN, 0, 0); Start.Perform(WM_LBUTTONUP, 0, 0);
end;

[Entropy]

Может надо было так?:

procedure TForm1.getColor;
begin
//color button spin
  DC:=GetDC(0);
  Pixs:=GetPixel(DC, 1003{X}, 581{Y});
  ReleaseDC(0, DC);


//1
  DC:=GetDC(0);
  Pix1a:=GetPixel(DC, 926{X}, 99{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1b:=GetPixel(DC, 929{X}, 97{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1c:=GetPixel(DC, 931{X}, 103{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix1d:=GetPixel(DC, 931{X}, 107{Y});
  ReleaseDC(0, DC);

//запись в мемо
  if (GetRValue(Pix1a)=4) and (GetGValue(Pix1a)=52) and (GetBValue(Pix1a)=28)
  and (GetRValue(Pix1b)=4) and (GetGValue(Pix1b)=52) and (GetBValue(Pix1b)=28)
  and (GetRValue(Pix1c)=4) and (GetGValue(Pix1c)=52) and (GetBValue(Pix1c)=28)
  and (GetRValue(Pix1d)=4) and (GetGValue(Pix1d)=52) and (GetBValue(Pix1d)=28)
  and (GetRValue(Pixs)=27) and (GetGValue(Pixs)=27) and (GetBValue(Pixs)=64)
   then begin
  Memo1.Lines.Insert(0,'1')

  end else
//2
  DC:=GetDC(0);
  Pix2a:=GetPixel(DC, 926{X}, 96{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2b:=GetPixel(DC, 931{X}, 104{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2c:=GetPixel(DC, 929{X}, 106{Y});
  ReleaseDC(0, DC);

  DC:=GetDC(0);
  Pix2d:=GetPixel(DC, 927{X}, 108{Y});
  ReleaseDC(0, DC);

//запись в мемо
  if (GetRValue(Pix2a)=4) and (GetGValue(Pix2a)=52) and (GetBValue(Pix2a)=28)
  and (GetRValue(Pix2b)=4) and (GetGValue(Pix2b)=52) and (GetBValue(Pix2b)=28)
  and (GetRValue(Pix2c)=4) and (GetGValue(Pix2c)=52) and (GetBValue(Pix2c)=28)
  and (GetRValue(Pix2d)=4) and (GetGValue(Pix2d)=52) and (GetBValue(Pix2d)=28)
  and (GetRValue(Pixs)=27) and (GetGValue(Pixs)=27) and (GetBValue(Pixs)=64)
   then begin
  Memo1.Lines.Insert(0,'2')

  end else
//3
  .....

[Entropy]

Сообщение от Entropy

Может надо было так?:

Все равно зависает

[egor1000000]

Сбрось полностью исходник я тебе его поправлю как надо
и что надо добавлю помогу на скайп : alexandr051979