diff --git a/lcl/grids.pas b/lcl/grids.pas
index c64db8632e..771e2b452e 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -876,6 +876,8 @@ type
     procedure CalcFocusRect(var ARect: TRect; adjust: boolean = true);
     function  CalcMaxTopLeft: TPoint;
     procedure CalcScrollbarsRange;
+    procedure CalculatePreferredSize(var PreferredWidth,
+      PreferredHeight: integer; WithThemeSpace: Boolean); override;
     function  CanEditShow: Boolean; virtual;
     function  CanGridAcceptKey(Key: Word; Shift: TShiftState): Boolean; virtual;
     procedure CellClick(const aCol,aRow: Integer; const Button:TMouseButton); virtual;
@@ -7375,6 +7377,13 @@ begin
   end;
 end;
 
+procedure TCustomGrid.CalculatePreferredSize(var PreferredWidth,
+  PreferredHeight: integer; WithThemeSpace: Boolean);
+begin
+  PreferredWidth:=0;
+  PreferredHeight:=0;
+end;
+
 function TCustomGrid.CalcMaxTopLeft: TPoint;
 var
   i: Integer;