Квадродерево

[MeTeOpA]

Доброе время суток.

Нужно построить квадродерево из ч\б изображения.

Помогите найти ошибку в коде.

procedure FindTree(Image: TBitmap; Nd:Node);
var
  HasBlack, HasWhite: boolean;
  i,j,x,y: integer;
  NewW, NewH: integer;
  NewRect:Trect;
begin
    Hasblack:=false;
    Haswhite:=false;

    for x:=Nd.Rect.Left to Nd.Rect.Right do
      for y:=Nd.Rect.Top to Nd.Rect.Bottom do
      begin
          if Image.Canvas.Pixels[x,y]=clWhite then
            HasWhite:=true
          else
            HasBlack:=true;
      end;

    if hasBlack=hasWhite then

    begin
      lvl:=lvl+1;
    for i:=0 to 1 do for j:=0 to 1 do

      begin
          k:=k+1;
          NewW:=(Nd.Rect.Right-Nd.Rect.Left) div 2;
          NewH:=(Nd.Rect.Bottom-A[k].Rect.Top) div 2;
          A[k].Rect:=Bounds(Nd.Rect.Left+i*NewW, Nd.Rect.Top+i*NewH, NewW, NewH);
          Nd:=A[k];
          FindTree(Image, Nd);
      end;

    end

    else
    begin

        if hasblack=true then
          A[k].Color:=clWhite
        else
          A[k].Color:=clblack;

    end;

    Form3.Show;

end;

    if hasBlack=hasWhite then

    begin
      lvl:=lvl+1;
    for i:=0 to 1 do for j:=0 to 1 do

      begin
          k:=k+1;
          NewW:=(Nd.Rect.Right-Nd.Rect.Left) div 2;
          NewH:=(Nd.Rect.Bottom-A[k].Rect.Top) div 2;
          A[k].Rect:=Bounds(Nd.Rect.Left+i*NewW, Nd.Rect.Top+i*NewH, NewW, NewH);
          Nd:=A[k];
          FindTree(Image, Nd);
      end;

    end

    else
    begin

        if hasblack=true then
          A[k].Color:=clWhite
        else
          A[k].Color:=clblack;

    end;

    Form3.Show;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
k:=0;
lvl:=1;
x1:=0;
x2:=256;
y1:=0;
y2:=256;
A[k].Rect:=Rect(x1,y1,x2,y2);
FindTree(Image1.Picture.Bitmap,A[k]);
end;


Суть вот в чем. Не ищет узлы((


end.

[Rin]

А можно поподробнее, что такое квадродерево по-русски, а не по научному? Хоть чуть-чуть прокомментируй свой код.
И если можно, то скинь картинку, которая должна обрабатываться.

[MeTeOpA]

Уже вопрос закрыт) Задача решена.
Сложность пошла в другом
http://programmersforum.ru/showthread.php?t=187980