diff --git a/components/tachart/taradialseries.pas b/components/tachart/taradialseries.pas index 43b6c6d3ab..7430d6184f 100644 --- a/components/tachart/taradialseries.pas +++ b/components/tachart/taradialseries.pas @@ -262,7 +262,7 @@ begin for ps in FSlices do begin if not ps.FVisible then continue; ADrawer.SetBrushParams(bsSolid, SliceColor(ps.FOrigIndex)); - numSteps := Round(2 * Pi * ps.Angle * FRadius / STEP); + numSteps := Max(Round(2 * Pi * ps.Angle * FRadius / STEP), 2); SetLength(p, 2 * numSteps); for i := 0 to numSteps - 1 do begin a := WeightedAverage(ps.FPrevAngle, ps.FNextAngle, i / (numSteps - 1));