Как по мне не рабоает VK_DELETE в Grid

[RIO]

Здравствуйте ! Нужно по нажатии клавишей Del на компоненте Grid вызвать некоторый диалог . . .

procedure TBox.GridKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_DELETE then
Box.GoActionExecute(Sender);
end;

Но по нажатию клавиши Del ничего не происходит, а если поменять например на VK_RETURN, то все работает . . . Дорогие форумчане, подскажите в чем загвоздка ?

[Самоучка]

Если нужен диалог, то можешь так

procedure Tform1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_DELETE then
if MessageDlg('Удалить запись?', mtConfirmation, [mbYes, mbNo], 0) =

              mrYes then
Table1.Delete
end;