Fórum Dúvida com While #348938

While Not SQLSiteXML.Eof do
  begin
     // Local onde será armazenado o arquivo XML
     ADPLocalFile  := IncludeTrailingPathDelimiter( ExtractFilePath( Application.ExeName ) ) + ´temp.adpheadlines.xml´;
     ADPXMLBLOG    := SQLSiteXML.Fields[1].AsString;  // Atribui o link do site a Variável
     Screen.Cursor := crHourglass;                    // Muda o cursor
     //
     try
       // download do arquivo
       if not DownloadURLFile( ADPXMLBLOG, ADPLocalFile ) then
       begin
          try
            Screen.Cursor := crDefault;
            Exit;
          except
             on E: Exception do
             begin
               exit;
             end;
             // Raise Exception.CreateFmt(´Unable to connect to the Internet, make sure you are connected!´,[]);
          end;
       end; // fim do if
       // Verifica se o arquivo existe
       if not FileExists( ADPLocalFile ) then
       begin
          Screen.Cursor := crDefault;
          raise exception.Create(´Can´´t locate the *headlines* file?!´);
          Exit;
       end; // fim do if
     //
     XMLDoc.Active   := False;          // fecha o componente
     XMLDoc.FileName := ADPLocalFile;   // Atribui o arquivo a ser processado
     XMLDoc.Active   := True;           // Abre o componente
     //
     StartItemNode := XMLDoc.DocumentElement.ChildNodes.First.ChildNodes.FindNode(´item´);
     ANode := StartItemNode;
     //
     repeat
       sTitle := ANode.ChildNodes[ ´title´       ].Text;
       sLink  := ANode.ChildNodes[ ´link´        ].Text;
       sDesc  := ANode.ChildNodes[ ´description´ ].Text;
       //
       SqlTestaSql( STitle, sLink, sDesc ); // procedimento onde se localiza o tratamento
       //                                   // para inserção das noticias no banco de dados.
       ANode  := ANode.NextSibling;
     until ANode = nil;
     //
     finally
        DeleteFile( ADPLocalFile );
        Screen.Cursor := crDefault;
     end; // fim do Finally
     //
     SqlSiteXml.Next;
   end;  // Fim While