Problema con Delete en el evento OnKeyDown

[Durbed]

Tengo un RichEdit y en el evento OnKeyDown no me detecta la pulsacion de la tecla suprimir, por tanto si alguien borra el contenido del RichEdit con esa tecla no me entero ni yo ni la propiedad modified del RichEdit.

He probado a poner esto para ver si la detectaba pero nada, ese codigo no lo ejecuta nunca.

Código Delphi [-]
procedure TFVerEditar.MNotasDirKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  showmessage(IntToStr(key));
  If key = VK_DELETE Then
    MNOtasDir.Modified := True;
End;

El problema es que con la tecla suprimir no salta el evento, entonces, como hago para que salte o en su defecto hacerlo de otra manera.

Un saludo y gracias.