diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index 962711878..0c67dabc2 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -707,7 +707,7 @@ procedure Register;
 implementation
 
 uses
-  Types, LCLType, LCLIntf, LCLProc, Math, StrUtils,
+  Types, LCLType, LCLIntf, LCLProc, LCLVersion, Math, StrUtils,
   fpCanvas,
   fpsStrings, fpsUtils, fpsVisualUtils, fpsHTMLUtils,
   fpsNumFormat;
@@ -3999,7 +3999,11 @@ begin
     AutoExpandToRow(grow, aeNavigation);
     AutoExpandToCol(gcol, aeNavigation);
     if (grow <> Row) or (gcol <> Col) then
+     {$IF LCL_FULLVERSION < 1070000}
+      MoveExtend(false, gcol, grow);
+     {$ELSE}
       MoveExtend(false, gcol, grow, true);
+     {$ENDIF}
   end;
 
   // Abort selection because of an error