diff --git a/components/fpvectorial/fpvectorial.pas b/components/fpvectorial/fpvectorial.pas
index 59d546ddf5..72f0085710 100644
--- a/components/fpvectorial/fpvectorial.pas
+++ b/components/fpvectorial/fpvectorial.pas
@@ -4072,7 +4072,7 @@ begin
   lBrush := LCLIntf.CreateBrushWithRadialGradient(lLogRadGrad);
   lOldBrush := TCanvas(ADest).Brush.Handle;
   TCanvas(ADest).Brush.Handle := lBrush;
-  TCanvas(ADest).Polygon(polypoints);
+  TCanvas(ADest).Polygon(APoints);
   TCanvas(ADest).Brush.Handle := lOldBrush;
   {$endif}
 end;