Polygon drehen

[christopher85]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
w:=spinedit1.value;
w:=w*Pi/180;
for n:=1 to n-1 do
  begin
    u:=trunc((xp[1]-x)*cos(w)+(yp[1]-y)*sin(w));
    v:=trunc(-(xp[1]-x)*sin(w)+(yp[1]-y)*cos(w));
    image1.Canvas.Pixels[u,v]:=clgreen;
    image1.Canvas.Pen.Color:=clgreen;
    image1.Canvas.Ellipse(u-6,v-6,u+6,v+6);

also bis jetzt macht er mir eine drehunng um den koordinatenursprung. aber ich will ja eigentlich um punkt eins drehen. dazu muss man den abstand von punkt eins zur x und y achse von allen anderen punkten subtrahieren. frage mich aber wie ich das in den quelltext bekommen soll.