diff --git a/lcl/graphicsmath.pp b/lcl/graphicsmath.pp
index ff6b17a0d0..4a32b1c00c 100644
--- a/lcl/graphicsmath.pp
+++ b/lcl/graphicsmath.pp
@@ -419,11 +419,10 @@ Procedure BezierArcPoints(X, Y, Width, Height : Longint; Angle1, Angle2,
   Rotation : Extended; var Points : PPoint; var Count : Longint);
 var
   B : TBezier;
-  I : Integer;
 begin
   If ABS(Angle2) > 90*16 then begin
-    PolyBezierArcPoints(X, Y, Width, Height, Angle1, Angle2, Rotation, 
-Points, Count);
+    PolyBezierArcPoints(X, Y, Width, Height, Angle1, Angle2, Rotation, Points,
+                        Count);
     Exit;
   end;
   If Angle2 = 0 then