diff --git a/lcl/grids.pas b/lcl/grids.pas
index f534405f3c..91f7b014d5 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -414,7 +414,7 @@ type
     function  GetDefaultSizePriority: Integer;
     function  GetDefaultVisible: boolean; virtual;
     function  GetDefaultWidth: Integer; virtual;
-    procedure ColumnChanged;
+    procedure ColumnChanged; virtual;
     procedure AllColumnsChange;
     function  CreateTitle: TGridColumnTitle; virtual;