Como impedir de apagar um registro em um DBGrid através das teclas CTRL+DEL?

Você tem uma Grid que é somente leitura, mas caso o usuário digite
CTRL+DEL o seu sistema exclui o registro?

Veja como é fácil bloquear isto!
No evento OnKeyDown do DBGrid, deixe conforme o exemplo abaixo:

1
2
3
4
5
6

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = VK_DELETE) then
    Key := 0;
end;

Dúvidas, deixe o seu comentário.