Try /Ecept in eine for schleife

[Karstadt]

Delphi-Quellcode:

     Try
      begin
        //Nachrichten werden "gelesen"
        for i:=1 to idPOP31.CheckMessages do
        begin
          idPOP31.Retrieve(i, IdMessage1);
          //Betreff
          LogMem(IdMessage1.Subject);
          Speicherortteam := IdMessage1.Subject;
          LogMem('Diese E-mail wird heruntergeladen');
          for intIndex := 0 to Pred(IdMessage1.MessageParts.Count) do
          begin
            //Wenn E-Mail mit Anhang
            if (IdMessage1.MessageParts.Items[intIndex] is TIdAttachment) then
            begin
              Dateiname := TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).Filename;
              LogMem('Datei '+Speicherort+Dateiname+' wurde gespeichert');
              TIdAttachment(IdMessage1.MessageParts.Items[intIndex]).SaveToFile(Speicherort+Dateiname);
              LogMem('Datei '+Speicherort+Dateiname+' wird entpackt');

              end;  // END IF
            end;  // END IF
          end;  // END I

          idpop31.Delete(i);
          IdMessage1.Clear;  //Wichtig, sonst bleibt der immer an eine E-mail hängen!
          LogMem('Nächste Nachricht');
        end;  // END I ( EMAILS)

        idpop31.disconnect;
        LogMem('Verbindung zum Pop3 wurde getrennt!');

      end; // Try
      except
        on e:exception do
        begin
          idPOP31.Disconnect;
          beep;
          LogMem('______________________________________');
          LogMem(Trim('Fehler: '+e.Message));
          LogMem('______________________________________');
          Continue;
        end;
      end; //END TRY

Die Fehler wird nicht unterdrückt sonder als MELDUNG angezeigt. warum?