diff --git a/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi b/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi
index 99de5d590..0ae60ffac 100644
--- a/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi
+++ b/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi
@@ -1,13 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="12"/>
+    <Version Value="11"/>
     <PathDelim Value="\"/>
     <General>
-      <Flags>
-        <CompatibilityMode Value="True"/>
-      </Flags>
       <SessionStorage Value="InProjectDir"/>
+      <MainUnit Value="0"/>
       <Title Value="JvPicClipDemo"/>
       <Scaled Value="True"/>
       <ResourceType Value="res"/>
diff --git a/components/jvcllaz/run/JvMM/jvpicclip.pas b/components/jvcllaz/run/JvMM/jvpicclip.pas
index 766c089f9..61d3f8d3e 100644
--- a/components/jvcllaz/run/JvMM/jvpicclip.pas
+++ b/components/jvcllaz/run/JvMM/jvpicclip.pas
@@ -251,12 +251,12 @@ end;
 function TJvPicClip.GetGraphicCell(Index: Integer): TBitmap;
 begin
   CheckIndex(Index);
-  AssignBitmapCell(Picture.Graphic, FBitmap, Cols, Rows, Index);
-  if Picture.Graphic is TBitmap then
+  if FPicture.Graphic is TBitmap then
     if FBitmap.PixelFormat <> pfDevice then
       FBitmap.PixelFormat := TBitmap(Picture.Graphic).PixelFormat;
   FBitmap.TransparentColor := FMaskColor or PaletteMask;
   FBitmap.Transparent := (FMaskColor <> clNone) and Masked;
+  AssignBitmapCell(Picture.Graphic, FBitmap, Cols, Rows, Index);
   Result := FBitmap;
 end;