Canvas - Punkte verbdinden

[hs-maniac]

Hallo Delphi-Freunde!

Habe folgendes Problem:
Derweil habe ich eine Oberfläche programmiert, die mir erlaubt per Mausklick Punkte zu setzen und deren Koordinaten werden neben der Canvas-Fläche gelistet.
Ich habe es auch schon geschafft, dass sie ALLE punkte mit JEDEM Punkt was ich setze verbindet, sprich, es wird sehr schnell sehr undurchschaubar, ist aber Sinn der Sache.

Quell-Code:

Delphi-Quellcode:

Canvas.Pen.Color := clred;
  Canvas.Pen.Width := 1;
  Canvas.Pen.Style := psDot;

 for i := 0 to High( arPoints ) - 1 do
    begin
      for j := i+1 to High( arPoints) + 0 do
          begin
              Canvas.MoveTo(arPoints[i].X, arPoints[i].Y);
               Canvas.LineTo(arPoints[j].X, arPoints[j].Y);
          end;
   end;

Nun möchte ich aber gerne, dass sich die Punkte nicht sofort verbinden sobald ich sie setze, sondern möchte ich gerne einen Button haben, der es per Klick ermöglicht, mit einmal alle Punkte zu verbinden.
Sprich:
Verbinden der Punkte erst nach Klick des Buttons.

WIe kriege ich das hin?
Ich besitze eine unit1.pas und eine unit2.pas
der button wird nach generieren in unit1.pas bearbeitet, der code hier ist aber in unit2.pas drin.

habe versucht, das ganze einfach rüber zu schreiben, geht aber net (Anfänger-Denken).


PS: Habe echt sehr wenig Ahnung von Delphi.


Besten Dank schonmal,
hs-maniac