[vovey]

Ошибка как я понимаю тут,а где она не знаю!

Код:

            m1[1].Y:=a[1].y;
            for b:=1 to strtoint(edit3.Text) do
            if (a[b].Y>m1[1].Y)
            then begin m1[1].Y:=a[b].Y;
                       m1[1].X:=a[b].X;
      end;
            m1[2].X:=a[1].X;
            for b:=1 to strtoint(edit3.Text) do
            if (a[b].X>m1[2].X)
            then begin m1[2].X:=a[b].X;
                       m1[2].Y:=a[b].Y;
      end;
            m1[3].X:=a[1].X;
            for b:=1 to strtoint(edit3.Text) do
            if (a[b].X<m1[3].X)
            then begin m1[3].X:=a[b].X;
                       m1[3].Y:=a[b].Y;
      end;
            image1.Canvas.MoveTo(m1[1].X,image1.Height-m1[1].Y);
            image1.Canvas.LineTo(m1[2].X,image1.Height-m1[2].Y);

            image1.Canvas.MoveTo(m1[2].X,image1.Height-m1[2].Y);
            image1.Canvas.LineTo(m1[3].X,image1.Height-m1[3].Y);

            image1.Canvas.MoveTo(m1[3].X,image1.Height-m1[3].Y);
            image1.Canvas.LineTo(m1[1].X,image1.Height-m1[1].Y);


end;