[vovey]

Ребят,спасибо!Но я вот не пойму,почему он строит треугольник через раз?Непонятно от куда,берет координаты!Линии не дорисовывает и т.п.
Ошибка тут как я понимаю,но где не могу найти,помогите!

Код:

m1[1].Y:= a[1].Y;
 m1[2].X:= a[1].X;
 m1[3].X:= a[1].X;
 for i:=1 to n do
 begin
  if (a[i].Y > m1[1].Y) then
  begin
   m1[1].Y := a[i].Y;
   m1[1].X := a[i].X;
  end;
  if (a[i].X > m1[2].X) then
  begin
   m1[2].X := a[i].X;
   m1[2].Y := a[i].Y;
  end;
  if (a[i].X < m1[3].X) then
  begin
   m1[3].X := a[i].X;
   m1[3].Y := a[i].Y;
  end;
 end;
 //вывестин на экран треугольник
 image1.Canvas.MoveTo(m1[1].X, m1[1].Y);
 image1.Canvas.LineTo(m1[2].X, m1[2].Y);
 image1.Canvas.LineTo(m1[3].X, m1[3].Y);
 image1.Canvas.LineTo(m1[1].X, m1[1].Y);