diff --git a/packages/fcl-image/src/fpimage.pp b/packages/fcl-image/src/fpimage.pp
index f3f6c1c2d5..e98ebd7c19 100644
--- a/packages/fcl-image/src/fpimage.pp
+++ b/packages/fcl-image/src/fpimage.pp
@@ -165,11 +165,11 @@ type
 
   TFPMemoryImage = class (TFPCustomImage)
     private
-      FData : PFPIntegerArray;
       function GetInternalColor(x,y:integer):TFPColor;override;
       procedure SetInternalColor (x,y:integer; const Value:TFPColor);override;
       procedure SetUsePalette (Value:boolean);override;
     protected
+      FData : PFPIntegerArray;
       procedure SetInternalPixel (x,y:integer; Value:integer); override;
       function GetInternalPixel (x,y:integer) : integer; override;
     public
diff --git a/packages/fcl-image/src/fpimgcanv.pp b/packages/fcl-image/src/fpimgcanv.pp
index 0bf6185f34..ded77a6308 100644
--- a/packages/fcl-image/src/fpimgcanv.pp
+++ b/packages/fcl-image/src/fpimgcanv.pp
@@ -21,9 +21,8 @@ uses FPPixlCanv, FPImage, classes;
 
 type
   TFPImageCanvas = class (TFPPixelCanvas)
-  private
-    FImage : TFPCustomImage;
   protected
+    FImage : TFPCustomImage;
     procedure SetColor (x,y:integer; const AValue:TFPColor); override;
     function  GetColor (x,y:integer) : TFPColor; override;
     procedure SetHeight (AValue : integer); override;