Código Delphi [-]for iIndiceI := 0 to Length(aReportes) -1 do
for iIndiceI := 0 to Length(aReportes) -1 do