diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 09c3247db5..4725a609a8 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -761,7 +761,7 @@ type
     FPaletteModified: Boolean;
   protected
     procedure Changed(Sender: TObject); virtual;
-    function Equals(Graphic: TGraphic): Boolean; virtual; {$IF declared(vmtEquals)}overload;{$IFEND}
+    function Equals(Graphic: TGraphic): Boolean; virtual; {$IF declared(vmtEquals)}overload;{$ENDIF}
     procedure DefineProperties(Filer: TFiler); override;
     procedure Draw(ACanvas: TCanvas; const Rect: TRect); virtual; abstract;
     function GetEmpty: Boolean; virtual; abstract;
@@ -789,7 +789,7 @@ type
     procedure Clear; virtual;
     {$IF declared(vmtEquals)}
     function Equals(Obj: TObject): Boolean; override; overload;
-    {$IFEND}
+    {$ENDIF}
     function LazarusResourceTypeValid(const AResourceType: string): boolean; virtual;
     procedure LoadFromFile(const Filename: string); virtual;
     procedure LoadFromStream(Stream: TStream); virtual; abstract;