RotatePoint

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