Соединить точки (по координатам из таблицы) ломаной линией

const n=7;
type  mas=array[1..n] of Tpoint;
 
var
  Form1: TForm1; 
   t1,t2,t3:mas; //3 массива для вывода
 
implementation
 
{$R *.lfm}
//рисование точек
procedure Tochki(a:mas;cv:TCanvas);
var i:byte;
begin
 with cv do
  begin
   for i:=1 to n do
     begin
      brush.color:=clBlue;
      brush.style:=bsSolid;
      rectangle(a[i].x-2,a[i].y-2,a[i].x+2,a[i].y+2); //нарисуем точки-квадратики
      font.color:=clBlue;
      brush.style:=bsClear;
      textout(a[i].x+5,a[i].y,IntToStr(i)); //подпишем номера
     end;
 end;
end;
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
    x:TPoint;
begin
 randomize;
with sg do
 begin
  colcount:=3;
  rowcount:=8;
  defaultcolwidth:=30;
  cells[1,0]:='X';
  cells[2,0]:='Y';
  for i:=1 to n do
   begin
    t1[i].x:=20+random(Image1.Width-40);
    t1[i].y:=20+random(Image1.Height-40);
    cells[0,i]:=IntToStr(i);
    cells[1,i]:=IntToStr(t1[i].x);
    cells[2,i]:=IntToStr(t1[i].y);
   end;
 end;
t2:=t1;
for i:=1 to n-1 do //отсортируем массив по возрастанию координаты Х
for j:=i+1 to n do
if t2[i].x>t2[j].x then
 begin
  x:=t2[i];
  t2[i]:=t2[j];
  t2[j]:=x;
 end;
t3:=t1;
for i:=1 to n-1 do //отсортируем массив по убыванию координаты Y
for j:=i+1 to n do
if t3[i].y<t3[j].y then
 begin
  x:=t3[i];
  t3[i]:=t3[j];
  t3[j]:=x;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:byte;
begin
with Image1.Canvas do
  begin
   clear;//очистим канву и назначим белый цвет фона
   brush.Style:=bsSolid;
   brush.color:=clWhite;
   rectangle(0,0,width,height);
  end;
 if RadioButton1.Checked then Tochki(t2,Image1.Canvas)//слева направо
 else if RadioButton2.Checked then Tochki(t3,Image1.Canvas)//снизу вверх
 else if RadioButton3.Checked then
  begin
   with Image1.Canvas do
    begin
     pen.color:=clBlack;
     moveto(t1[1].x,t1[1].y);
     for i:=1 to n do
     lineto(t1[i].x,t1[i].y);//рисуем ломаную
    end;
  Tochki(t1,Image1.Canvas)//рисуем точки как ввели
 end
else
 begin
  Showmessage('Вы не выбрали способ вывода');
  exit;
 end;
end;

var L:real;
begin
L:=0;
for i:=1 to n-1 do
L:=L+sqrt(sqr(t1[i].x+t1[i+1].x)+sqr(t1[i].y+t1[i+1].y));