Поворот ломаной

procedure TFormMain.Button4Click(Sender: TObject);
var x: array[0..3] of extended;
    y: array[0..3] of extended;
    angle, XA,XB,YA,YB,  X0,Y0:extended;
    i:integer;
begin
Image.Canvas.FillRect(Image.BoundsRect);//Очистим image
 
x[0]:=84;y[0]:=126; //исходные данные
x[1]:=84;y[1]:=168;
x[2]:=168;y[2]:=84;
x[3]:=0;y[3]:=0;
 
XA:=0;XB:=0;YA:=0;YB:=0;    X0 := 0; Y0 := 0;
 
XA := x[0]; YA :=y[0]; //прочитаем первую точку
X0 := XA;  Y0 := YA;   //сохраним точку вокруг которой всё поворачивать
 
XA :=  MARGIN + XA;  YA := MARGIN + SCREEN - YA; //Xовые координаты сдвинем, а Yовые зеркально так как ось Y идет вниз
FormMain.Image.Canvas.Ellipse(trunc(XA-3),trunc(YA-3),trunc(XA+3),trunc(YA+3));//нарисуем начальную точку
 
angle := cur_angle * pi / 180;//ЗАДАННЫЙ УГОЛ (cur_angle) переведем в радианы
 
for i:=0 to 2 do begin
 
XA := x[i];   YA :=y[i];
XB := x[i+1]; YB :=y[i+1];
 
if(i <> 0) then begin//у первой точки не пересчитываем вокруг нёё поворачивается
                XA :=   X0 + (XA - X0)*cos(angle) - (YA - Y0)*sin(angle);
                YA :=   Y0 + (XA - X0)*sin(angle) + (YA - Y0)*cos(angle);
                end;
XB := X0 + (XB - X0)*cos(angle) - (YB - Y0)*sin(angle);
YB := Y0 + (XB - X0)*sin(angle) + (YB - Y0)*cos(angle);
 
//Xовые координаты сдвинем, а Yовые зеркально так как ось Y идет вниз
XA :=  MARGIN + XA;  YA := MARGIN + SCREEN - YA;
XB :=  MARGIN + XB;  YB := MARGIN + SCREEN - YB;
 
FormMain.Image.Canvas.MoveTo(trunc(XA), trunc(YA));   FormMain.Image.Canvas.LineTo(trunc(XB), trunc(YB));  //начертим отрезок
 
                end;//for
 
end;