поиск цвета пикселей

[nolz]

девять рисуноков разделёны на 12 равных частей каждый, если в части присутствует хотябы один пиксель чисто чёрного цвета($000000), то определённому элементу массива присваивается 1, иначе 0.
Ниже приведённый код не верен, подскажите как составить алгоритм, так что бы при переходе на новую часть рисунка, ставились координаты начала этой части.

    for i:=1 to 9 do
     begin
       j:=1;
       x:=0;
       y:=0;
       s:='img/'+inttostr(i)+'.bmp';
       image1.Picture.LoadFromFile(s);
       for ky:=1 to 4 do
         for kx:=1 to 3 do
           begin
            repeat
              repeat
                 if image1.Canvas.Pixels[x,y]=$000000 then masx[i,j]:=1 else masx[i,j]:=0;
                 x:=x+1;
              until (x>=50*kx);
              y:=y+1;
            until (y>=50*ky);  
              j:=j+1;

           end;
     end;
    for i:=1 to 9 do
      for j:=1 to 12 do
       listbox1.Items.Add(inttostr(masx[i,j]));

ещё одна проблема возникает в том, что программа ведёт не правильный счёт пикселей, я пересмотрел свой код, и вроде всё правильно, но то что выводится в listbox говорит об обратном
Подскажите пожалуйста в чём проблемма.

подправил немного свой код

   for i:=1 to 9 do
     begin
       j:=1;
       x:=1;
       y:=1;
       s:='img/'+inttostr(i)+'.bmp';
       image1.Picture.LoadFromFile(s);
     repeat
       px:=50;
       py:=50;
       for ky:=1 to 4 do
         for kx:=1 to 3 do
          begin
            repeat
              repeat
                 if image1.Canvas.Pixels[x,y]=$000000 then masx[i,j]:=1 else masx[i,j]:=0;
                 x:=x+1;
              until (x>=50*kx);
              y:=y+1;
            until (y>=50*ky);
            j:=j+1;
            x:=px;
            y:=py;
          end;
       py:=py+50;
       if px<150 then px:=px+50;   
     until (py>=200) and (px>=150);
     end;
    for i:=1 to 9 do
      for j:=1 to 12 do
       listbox1.Items.Add(inttostr(masx[i,j]));

теперь происходит зацикливание, не понимаю почему.

[Ol'ga_new]

Вообще-то в ListBox здесь выводится массив 0 и 1, что говорит о наличии или отсутствии черного цвета в определенных областях рисунка.