[Indy 10] UIDCheckMsgSeen => AV

[Christian Seehase]

Moin Zusammen,

mit Hilfe von Indys (Version 10.1.5) TidIMAP4 versuche ich Mails zu lesen.
Da mich nur die jeweils noch ungelesenen interessieren möchte ich mit Hilfe der Methode UIDCheckMsgSeen prüfen, ob die aktuelle Mail schon gelesen war, oder nicht.
Mit GetUID wird vorher auch der ordinale Wert umgewandelt.
Sobald ich UIDCheckMsgSeen aufrufe erhalte ich allerdings eine AV mit Fehler beim Lesen von Adresse 0.
Ich konnte feststellen, dass der Fehler in der Zeile

        if ((LastCmdResult.Text.Count > 0) and hervorgerufen wird (Unit idIMAP4), weil wohl Text nicht initialisiert wurde, und somit beim Zugriff auf Count der Fehler hervorgerufen wird.
Mir ist auch noch die Merkwürdigkeit aufgefallen, dass MailBox.FirstUnseenMsg immer 0 zurückliefert, was auch nicht sein kann, wenn ich gerade neue Mails in das Postfach verschickt habe.
Das eigentliche Lesen der Mail funktioniert hingegen problemlos, nur das Abfragen der Flags scheint ständig vor die Wand zu laufen.
Auch CheckMsgSeen ruft den Fehler hervor, und wenn ich eine Mail abrufe (UIDRetrieve), auch gelesene, enthalten die Flags kein mfSeen.

Zum Testen lese ich die Mails von einem Mercury-Server.

Hier mal der Kern der Routine:

Delphi-Quellcode:

    iMailCount := imap.MailBox.TotalMsgs;
    msgTemp    := TIdMessage.Create;
    try
      sIsWugMail := AnsiLowerCase(FWugMailsIdentifier);
      for i := 1 to iMailCount do begin
        iErrorPos := 0;
        try
          if not imap.GetUID(i,uidMsg) then continue;
          Inc(iErrorPos);
          if imap.UIDCheckMsgSeen(uidMsg) then continue;
          Inc(iErrorPos);
          msgTemp.Clear;
          if not imap.UIDRetrieve(uidMsg,msgTemp) then continue;
          if Pos(sIsWugMail,AnsiLowerCase(msgTemp.Subject)) = 0 then begin // = 0 => Keine WugMail
            Inc(iErrorPos);
            imap.UIDStoreFlags(uidMsg,sdReplace,msgTemp.Flags - [mfSeen]);
            Continue;
          end;
          ProcessReadMail;
        except
          on E : Exception do begin
            FslOutErrors.Add(_sErrWugReadMail+'|'+Format(_sMskFmtErrorMailException,[uidMsg,iErrorPos,RemoveCRLF(E.Message)]));
          end;
        end;
      end;
      imapLeoLogs.ExpungeMailBox;
    finally
      msgTemp.Free;
    end;

Liegt das jetzt am Mercury-Server, gibt es da entsprechende Bugs in den Indys oder mache ich was falsch?