Ereignisse werden nicht ausgeführt

[Svenkan]

Nachdem ich in meinen Code Exceptions-Messages abgefangen hab, um diese als Textmeldung in einem Statusfeld darzustellen, werden meine TIdSMTP-Ereignisse nicht mehr ausgelöst.

Delphi-Quellcode:

Try
      Application.ProcessMessages;
      try
        Infos.Lines.Add(TimeToStr(NOW)+': Verbindungsversuch durch '+SMTP.Username+' mit '+SMTP.Host);
        SMTP.Connect;
      except
          on E: Exception do begin
            Infos.Lines.Add('');
            Infos.SelAttributes.Style:=Infos.SelAttributes.Style + [fsBold];
            Infos.Lines.Add('Folgende Fehlermeldung wurde vom Server zurückgeliefert:');
            Infos.Lines.Add(E.Message);
            Infos.SelAttributes.Style:=Infos.SelAttributes.Style - [fsBold];
          end;
      end;

      if SMTP.Authenticate=True then
        Infos.Lines.Add(TimeToStr(NOW)+': Login-Daten akzeptiert')
      else
        Infos.Lines.Add(TimeToStr(NOW)+': Login-Daten abgewiesen!');

      Try
        Infos.Lines.Add(TimeToStr(NOW)+': Versuche Vertretungspläne zu verschicken..');
        SMTP.Send(idMessage);
      Except
          on E: Exception do begin
            Infos.Lines.Add('');
            Infos.Lines.Add('Folgende Fehlermeldung wurde vom Server zurückgeliefert:');
            Infos.SelAttributes.Style:=Infos.SelAttributes.Style + [fsBold];
            Infos.Lines.Add(E.Message);
            Infos.SelAttributes.Style:=Infos.SelAttributes.Style - [fsBold];
          end;
      End;
      SMTP.Disconnect;
    Except
      If SMTP.Connected = True Then
      Begin
        Try
          SMTP.Disconnect;
        Except
            Infos.Lines.Add(TimeToStr(NOW)+': Verbindungsaufbau fehlgeschlagen - Vertretungspläne können nicht verschickt werden!');
        End;
      End;
        Infos.Lines.Add(TimeToStr(NOW)+': Konnte Verbindung zum Host nicht herstellen oder 1. Empfänger ist fehlerhaft');
    End;

Die Ereignisse wurden noch normal ausgelöst, als die on-do-Anweisungen noch nicht mit eingebaut waren.

[Crosspost: http://www.delphi-forum.de/viewtopic...569827#569827]