RotatePoint

procedure RotatePoint(var pt: TPointD; const focalPoint: TPointD; angleRad: double); overload;

procedure RotatePoint(var pt: TPointD; const focalPoint: TPointD; sinA, cosA: double); overload;