Index: lcl/grids.pas
===================================================================
--- lcl/grids.pas	(revision 42191)
+++ lcl/grids.pas	(working copy)
@@ -2157,6 +2157,7 @@
   end;
 
   OldSize := integer(PtrUInt(FCols[ACol]));
+
   if NewSize<>OldSize then begin
 
     if OldSize<0 then
@@ -2163,10 +2164,11 @@
       OldSize := fDefColWidth;
 
     Bigger := NewSize>OldSize;
-    SetRawColWidths(ACol, AValue);
 
     if not (csLoading in ComponentState) and HandleAllocated then begin
 
+      SetRawColWidths(ACol, AValue);
+
       if FUpdateCount=0 then begin
         UpdateSizes;
         R := CellRect(aCol, 0);
@@ -8681,6 +8683,7 @@
   FUnCheckedBitmap := LoadResBitmapImage('dbgriduncheckedcb');
   FCheckedBitmap := LoadResBitmapImage('dbgridcheckedcb');
   FGrayedBitmap := LoadResBitmapImage('dbgridgrayedcb');
+
 end;
 
 destructor TCustomGrid.Destroy;