Повернуть точку
procedure RotateScrPoint(xc,yc: double; var X,Y: double; Angle: Double);
xc
yc
x
y
Angle