YX-алгоритм заливки даной фигуры

const miny=10; 
        maxy=180;
        minx=120;
        maxx=280;
var step,clr,n,x,y,i,j:integer;
     point:array[1..10] of integer; // Массив точек
begin   //1
Image1.Canvas.Brush.Color:=clWhite;
Image1.Canvas.FillRect(Bounds(0,0,425,235));  // Очистка формы
Self.ControlStyle:=Self.ControlStyle+[csOpaque];  //Убираем мерцание
{Рисуем фигуру}
Image1.Canvas.Pen.Color:=clBlack; 
Image1.Canvas.MoveTo(150,10);   
Image1.Canvas.LineTo(220,60);
Image1.Canvas.MoveTo(220,60);
Image1.Canvas.LineTo(270,30);
Image1.Canvas.MoveTo(270,30);
Image1.Canvas.LineTo(280,100);
Image1.Canvas.MoveTo(280,100);
Image1.Canvas.LineTo(210,180);
Image1.Canvas.MoveTo(210,180);
Image1.Canvas.LineTo(120,100);
Image1.Canvas.MoveTo(120,100);
Image1.Canvas.LineTo(150,10);
 
begin      //2
  for y:=miny-1 to maxy+1 do  // Запускаем цикл прохождения по форме(по игрикам)
  begin      //3
    i:=1; n:=0;
    for clr:=1 to 10 do   // Цикл очистки массива точек
    point[clr]:=0;
    for x:=minx-1 to maxx+1 do   // Запускаем цикл прохождения по форме(по иксам)
    if (Image1.Canvas.Pixels[x,y]=clBlack) then // Проверка пикселя на черный цвет. Ведь так проверяется?
    begin       //4
      if (y=10) then begin end; // P1
      if (y=30) then begin point[i]:=x; i:=i+1; n:=n+1; point[n+1]:=point[n]; end; // P3
      if (y=60) then begin point[i]:=x; if (i=2) then begin point[i+1]:=point[i]; i:=i+2; end else i:=i+1; end; // P2
      if ((y<>10) and (y<>30) and (y<>60)) then begin point[i]:=x; i:=i+1; end; // All Poly.
    end;        //4
    step:=0;
    for j:=1+step to 10 do  // Запуск цикла по массиву точек. 
    begin         //5
      step:=1;
      Image1.Canvas.MoveTo(point[j],y);repaint;  
      Image1.Canvas.LineTo(point[j+1],y);repaint;
    end;          //5
  end;           //3
end;            //2
end;             //1