problemas con dbgrid

[sema31]

Buenos días, gracias por contestar


He probado en el evento del dataset.beforeinsert poner abort pero sigue igual, también he probado en las propiedades del dbgrid ponerlo en readonly=true y mismo resultado,


Respecto al código que le he puesto al botón de consulta es

Código Delphi [-]
if QUERY1.Eof then EXIT;
FEDITOR_CONTRATO:=TFEDITOR_CONTRATO.Create(SELF);
FEDITOR_CONTRATO.showmodal;

donde query es una consulta y un componente TpFIBDataset (de las fibplus) enlazado con un dataset
Y Feditor_contrato es el form que se abre cuando realizo la consulta


Si en el dbgrib me posiciono en el ultimo registro y pulso la flecha abajo, ya no me funciona el boton de consulta, entiendo que es porque el puntero de la base de datos esta como si estuviese insertando un registro nuevo y al pulsar en el botom esta sentencia hace su trabajo if QUERY1.Eof then EXIT; No se como evitar que cuando este en el ultimo registro de dbgrid, el puntero se quede ahi




Un saludo