diff --git a/components/fpspreadsheet/fpspreadsheetgrid.pas b/components/fpspreadsheet/fpspreadsheetgrid.pas
index e2984719c..bd29c9064 100644
--- a/components/fpspreadsheet/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/fpspreadsheetgrid.pas
@@ -2121,7 +2121,9 @@ begin
   if (Key = VK_ESCAPE) and FEditing then begin
     SetEditText(Col, Row, FOldEditText);
     EditorHide;
+    exit;
   end;
+  inherited;
 end;
 
 procedure TsCustomWorksheetGrid.Loaded;