diff --git a/lcl/grids.pas b/lcl/grids.pas
index 01d984be75..f677322d85 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -9117,7 +9117,7 @@ begin
   {$IfDef DbgGrid} DebugLn('TStringCellEditor.Change INIT text=',Text);{$ENDIF}
   inherited Change;
   if (FGrid<>nil) and Visible then begin
-    FGrid.SetEditText(FCol, FRow, Text);
+    FGrid.EditorTextChanged(FCol, FRow, Text);
   end;
   {$IfDef DbgGrid} DebugLn('TStringCellEditor.Change END');{$ENDIF}
 end;