Recorrer dataset, no funciona bien.

[WHILENOTEOF]

Como se ha comentado, para recorrer el dataset es mejor con :

Código Delphi [-]
Dataset.First;
while not DataSet.Eof do
 begin
  //código
  DataSet.Next;
 end;

El poner

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

o poner

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

, no te va a cambiar nada ya que la variable cont no la estás utilizando para nada.