Распознование цифр с картинки

[Arsenx777]

Добрый день, я пишу программу которая будет распозновать простые цыфры с картинки тоесть каптчи,
1.jpg
6.jpg

procedure bw();
var i,j: integer;
  buff: byte;
  col: TColor;
begin
for i:=0 to image1.Width-1 do
  for j:=0 to image1.Height-1 do
  begin
    col:=image1.Canvas.Pixels[i,j];
    buff:=(GetRValue(col)+GetGValue(col)+GetBValue(col)) div 3;
          If buff > 180 then
            buff := 255
          else
            buff := 0;
          col := RGB(buff, buff, buff);
          image1.Canvas.Pixels[i, j] := col;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  jpeg:=TJpegImage.Create;
  bitmap:=TBitmap.Create;
  jpeg.LoadFromFile('1\5711.jpeg');
  bitmap.Assign(jpeg);
  image1.Picture.Assign(bitmap);
  bw();
end;



//Поиск координат цифр
procedure TForm1.Search_coordinate();
var i,j: integer;
  c_info:info;
  isset: boolean;
  x1,x2,y1,y2: integer;
begin
for i:=0 to image1.Width-1 do
begin
  for j:=0 to image1.Height-1 do
   if image1.Canvas.Pixels[i,j]=0 then
   begin
     x1:=i; break;
   end;
   if x1=i then break;
end;

for j:=0 to image1.Height-1 do
begin
  for i:=0 to image1.Width-1 do
    if image1.Canvas.Pixels[i,j]=0 then
   begin
     y1:=j; break;
   end;
   if y1=j then break;
end;

end;

В процедуре Search_coordinate(); я нахожу первые 2 координаты первой цыфры, тоесть левая сторона и верхняя (x1,x2), как найти все координаты что бы можно было потом их вырезать? Я хочу понять принцып что бы не копировать код, а понять что и как, что бы потом сам решал подобные задачи.
Какие есть алгоритмы вырезки? если цыфры появляются хаатично(тоесть координаты по x,y),?

[Cyrix]

http://www.vr-online.ru/content/delp...em-kapchu-4281