procedure TForm1.DBGrid1KeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

  if (ssctrl in shift) and (key=vk_delete) then

    key:=0;

end;