Recorrer dataset, no funciona bien.

[Casimiro Noteví]

Primero de todo, ¡¡¡bienvenido!!!
Por favor, lee nuestra guía de estilo, gracias.
No olvides usar las etiquetas para código, ejemplo:



También, cuando vayas a preguntar algo, debes crear un hilo nuevo, no escribas cualquier cosa en cualquier hilo.
Solamente debes escribir en otros hilos para contestar a los que han iniciado el mismo.

Seguidamente, en tu código, seguramente debas cambiar:

Código Delphi [-]
for cont := 1 to Query6.RecordCount do

por

Código Delphi [-]
for cont := 0 to Query6.RecordCount -1 do

Aunque lo mejor es:

Código Delphi [-]
while not query.eof do

Además veo cosas raras en tu código, estás mezclando qconsr y query6. Supongo que te has despistado y has hecho un copia/pega mal.
O lo mismo no lo he llegado a entender bien.