Impedindo ctrl+del num dbgrid no Delphi

 

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

Colocar no evento OnKeyDown do DBGRID:

if (Shift = [ssCtrl]) and (Key = 46) Then
KEY := 0;