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:
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.