diff --git a/components/fpspreadsheet/source/common/fpspreadsheet.pas b/components/fpspreadsheet/source/common/fpspreadsheet.pas
index 295d74ea2..abe9fc6f7 100644
--- a/components/fpspreadsheet/source/common/fpspreadsheet.pas
+++ b/components/fpspreadsheet/source/common/fpspreadsheet.pas
@@ -2144,6 +2144,8 @@ end;
 -------------------------------------------------------------------------------}
 procedure TsWorksheet.DeleteCell(ACell: PCell);
 {$warning TODO: Shift cells to the right/below !!! ??? }
+var
+  r, c: Cardinal;
 begin
   if ACell = nil then
     exit;
@@ -2159,8 +2161,13 @@ begin
     exit;
   end;
 
+  r := ACell^.Row;
+  c := ACell^.Col;
+
   // Destroy the cell, and remove it from the tree
   RemoveAndFreeCell(ACell^.Row, ACell^.Col);
+
+  ChangedCell(r, c);
 end;
 
 {@@ ----------------------------------------------------------------------------
diff --git a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
index b58cdbd97..ad7c1e147 100644
--- a/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
+++ b/components/fpspreadsheet/source/visual/fpspreadsheetgrid.pas
@@ -4630,6 +4630,8 @@ begin
       end;
     VK_F2:
       FEnhEditMode := true;
+    VK_DELETE:
+      Worksheet.DeleteSelection;
   end;
 
   inherited;