KeyPreview:= true;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  // tangkap message penekanan keyboard dari nonsystem key
  if Msg.message = WM_KEYDOWN then
    // tangkap virtual-key code
    case Msg.wParam of
      VK_LEFT: Table1.Prior;
      VK_RIGHT: Table1.Next;
    end;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=chr(VK_DELETE)) then
    HapusSatuRecord
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_DELETE) then
    HapusSatuRecord
end;