Polygon verschieben???

[unwissend]

Hallo Leute!

Groooooooooooooßes Problem!

Ich muß unbedingt für einen Beleg ein Polygon erstellen und dieses ist auch noch so in x-Richtung zu verschieben, dass der punkt mit der kleinsten x-Koordinate auf der y-Achse liegt.

Hab auch schon angefangen das Polygon zu zeichnen und zu schließen und zu löschen aber wie zum teufel kann ich das nur verschieben? ich hab keine Ahnung.


Bitte bitte helft mir!!!

bis jetzt bin ich so weit:

var
Form1: TForm1;
xp,yp,xs,ys:array[0..100] of integer;
ss,n: integer;


implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
for i := 1 to n do
begin
xp[i] := 0;
yp[i] := 0;
end;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
begin
close;
end;
//Polygon erzeugen mit Mausklick
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
begin
n:=n+1;
xp[n]:=x;
yp[n]:=y;
image1.Canvas.Rectangle(x-1,y-1,x+1,y+1);
image1.canvas.Ellipse(xp[1]-2,yp[1]-2,xp[1]+2,yp[1]+2);
if n>1 then
begin
image1.Canvas.MoveTo(xp[n-1],yp[n-1]);
image1.Canvas.LineTo(xp[n],yp[n]);
if ssAlt in shift then image1.Canvas.LineTo(xp[1],yp[1]);
end;
end;
end;
//Polygon löschen, Koordinaten auf null setzen
procedure TForm1.Lschen1Click(Sender: TObject);
var i:integer;
begin
image1.canvas.Pen.color:=clwhite;
image1.canvas.brush.color:=clwhite;
image1.canvas.brush.Style:=bssolid;
image1.canvas.rectangle(0,0,image1.width,image1.He ight);
image1.canvas.pen.color:=clblack;
n:=0;

for i := 1 to n do
begin
xp[0] := 0;
yp[0] := 0;
end;
end;
// Polygon Schließen, zurück um Ursprung
procedure TForm1.Polygonschlieen1Click(Sender: TObject);
begin
image1.Canvas.LineTo(xp[1],yp[1]);
end;
//Butten zum Befehl Verschieben (ohne Inhalt)
procedure TForm1.ten1Click(Sender: TObject);
var v:integer;
begin

end;
end.


Also bin über jede Idee glücklich.