Polygon verschieben???

[unwissend]

procedure TForm1.ten1Click(Sender: TObject);
var v:integer;
begin
min:= ertserPunkt.xkoordinate
for i:= 0 to AnzahlDerPunkte do
if iterPunk.xKoordinate < min then
begin
min:=iterPunk.xKoordinate
:= i;
end;
image1.Canvas.MoveTo(xp[n-1]-PunktMitKleinsterKoordinate,yp[n-1]);
image1.Canvas.LineTo(xp[n],yp[n]);
end;

hinter deiner Punktmitkleinsterkordinate. (Hab sie natürlich umbenannt in v) nur hier so gelassen damit du siehst wie ich mir das gedacht hab