diff --git a/lcl/graphutil.pp b/lcl/graphutil.pp
index 0adac9e4ee..bba5d83545 100644
--- a/lcl/graphutil.pp
+++ b/lcl/graphutil.pp
@@ -369,7 +369,7 @@ end;
 procedure ScaleImg(AImage: TCustomBitmap; AWidth, AHeight: Integer);
 var
   srcImg, destImg: TLazIntfImage;
-  destCanvas: TLazCanvas = nil;
+  destCanvas: TLazCanvas;
 begin
   if (AImage.Width = AWidth) and (AImage.Height = AHeight) then
     exit;