diff --git a/lcl/grids.pas b/lcl/grids.pas
index 4be6b608d0..ed05bb7d66 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -9725,9 +9725,7 @@ procedure TGridColumnTitle.SetCaption(const AValue: TCaption);
 begin
   if (FCaption=nil)or(AValue<>FCaption^) then begin
     if FCaption<>nil then
-      StrDispose(FCaption)
-    else if (AValue=GetDefaultCaption) then
-      exit;
+      StrDispose(FCaption);
     FCaption := StrNew(PChar(AValue));
     FColumn.ColumnChanged;
   end;