Sofern du dich schon mit der Definition/Ausprogrammierung von Methoden/Proceduren auskennst, könntest du folgendes machen~
Delphi-Quellcode:
procedure TForm1.verschiebePolygon(x, y: Integer);
var
i: Integer;
dx, dy: Integer;
begin
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;
end;
procedure TForm1.IrgendEinButtonClick;
var
x, y: Integer;
begin
x := StrToInt(Edit1.Text); // hier drinnen befindet sich die x Koordinate
y := StrToInt(Edit2.Text); // hier drinnen befindet sich die y Koordinate
verschiebePolygon(x, y);
Invalidate; // neuzeichnen
end;