Eliminar Pulsación tecla Supr

[javiermorales]

Hola a todos/as. Ya he planteado este asunto y he buscado en los foros pero no consigo solucionarlo. Se trata simplemente de eliminar la pulsación de la tecla Supr, ya que la utilizo en los maestros para eliminar registros. Tengo el siguiente código:

procedure TIndices.DBCtrlGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  //Pulsacion de Borrar Registro (Suprimir)
  if (Key=VK_DELETE) then
  begin
   //He probado con cualquiera de las tres:
    //1.- Key := 0;
    //2.- Key:=VK_OEM_CLEAR;
    //3.- DBCtrlGrid1.DoKey(gkNull);
    if not (DataSource1.State in [dsInsert,dsEdit]) and not (DataSource1.DataSet.Eof) then
      if (Application.MessageBox('¿Seguro que desea borrar el registro?',
      'Sistema de Gestión de Constructoras',mb_yesno+mb_IconInformation)=idyes) then
        DataSource1.DataSet.Delete;
    Exit;
  end;

Esto funciona bien, pero la tecla Supr continua activa y realiza su función, es decir, suprime.

Por favor, indicarme como conseguir que no surpima tras su captura. Gracias