Código Delphi [-] DataModule1.UniQueryConsultaDOC.open; while not DataModule1.UniQueryConsultaDOC.eof do
DataModule1.UniQueryConsultaDOC.open; while not DataModule1.UniQueryConsultaDOC.eof do