Oder um es ein bisschen Quick und Dirty zu machen, könntst du den Inhalt dieser Procedure rauskopieren und an der Stelle einfügen, wo du sie ausgeführt haben willst.~
Delphi-Quellcode:
procedure TForm1.IrgendEinButtonClick;
var
x, y: Integer;
i: Integer;
dx, dy: Integer;
begin
x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
dx := x - xp[1];
dy := y - yp[1];
for i := 1 to n do
begin
xp[i] := xp[i] + dx;
yp[i] := yp[i] + dy;
end;
Invalidate; // neuzeichnen
end;