[Graphics32] (Problem) Wie bewege ich ein Polygon auf eine fixe Position?

[ColeZero]

Wenn ich auf das Canvas mehrmals drauf klicke, wird diese procedure auch mehrmals durchlaufen Aber ich kann da nicht einfach die X,Y Coords. der Maus übergeben, weil er das Polygon sonst jedesmal so verschieben würde:

Delphi-Quellcode:

 AltePosition.X := AltePosition.X + NeuesX;
 AltePosition.Y := AltePosition.Y + NeuesY;

Aber ich will ja nur

Delphi-Quellcode:

 ALtePosition.X := NeuesX;
 AltePosition.Y := NeuesY;