Как защитить запись в DBGrid от удаления

Поместите следующий код в событие OnKeyDown в DBGrid.

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssctrl in shift) and (key=vk_delete) then key:=0;
end;