DBGrid

[Puberta]

Tengo el evento onNewRecord, en este hago una consulta a la tabla y traigo el ultimo valor de este, por lo que pongo como clave principal el resultado del query mas 1

QModelosId_Modelo.value := Query.Field[0].value + 1;
QModelosId_Marca.value := DBMarca.Text;

pero el problema es que al poner el dataset en modo de inserción si me manda los valores
pero sólo al primer registro y si el usuario presionaba el tabulador o la tecla de dirección (down) me agregaba más lineas obvimente con los campos vacios, por lo que opte por bloquear el DBGrid....intenté en el evento onKeyDown y si funciona pero me bloquea el dataset y solo me deja agregar un registro.

IF (key in [VK_DOWN, VK_TAB, VK_UP]) then key := 0;

No tengo idea porque cada vez que agrego algo al dataset afecta todo mi código que anteriormente estaba bien, es decir hacia lo que requería que hiciera.