Punkte verbinden zu einem Polygon

[DelphiKlaus]

Versuch's doch mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 

var
  i    : integer;

begin 
  with image1.canvas do 
    begin 
      pen.color:=clblack; 
      pen.Style:=pssolid; 

      moveto (xp [1], yp [1])
    end;
 
  for i := 2 to n do 
    lineto (xp [i], yp [i]);

  lineto (xp [1], yp [1])
end;