Como se ha comentado, para recorrer el dataset es mejor con :
Código Delphi
[-]Dataset.First;
while not DataSet.Eof do
begin
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.