error al recorrer un query

[[Lepe]]

Segun tengo entendido solo algunos Datasets tienen implementado el RecordCount, es más si miras la implementación de Recordcount en la clase Tdataset, verás que devuelve -1.

Entonces dependerá de qué tipo de tablas uses y de si implementa el recordcount o no.

Para subsanar el error, simplemente hazlo como te ha dicho Marcos.

pero el problema es con algo relacionado con el :current record

Asegurate de estar en un registro correcto. query.First, query.Last segun te convenga, justo antes del bucle while.

Advertencia: Si estas borrando registros, no uses query.Next, el método tabla.Delete ya actualiza la posición.

Saludos