Tecla Suprimir

[javiermorales]

Hola a todos/as. En un form tengo un DBCtrlGrid y tengo en el evento OnKeyDown el siguiente código:

procedure TObras.DBCtrlGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //Pulsacion de Borrar Registro (Suprimir)
  if (Key=VK_DELETE) then
  begin
    DBCtrlGrid1.DoKey(gkNull);
    Key := 0;
    if not (DataSource2.State in [dsInsert,dsEdit]) and not (DataSource2.DataSet.Eof) then
      if (Application.MessageBox('¿Seguro que desea borrar el registro?',
      'Sistema de Gestión de Constructoras',mb_yesno+mb_IconInformation)=idyes) then
      begin
        DataSource2.DataSet.Delete;
        DataSource2.DataSet.Refresh;
        DBEdit8.SetFocus;
      end;
    Exit;
  end;
end;

El problema está en que además ejecuta la funcionalidad normal de la tecla Suprimir, aunque como veis no tengo "inherited" y a la tecla le asigno el valor 0.

Por favor, alguna idea.