TIdMessage (Indy) Flags setzen

[Towmuz]

Tag auch,

ist es irgendwie möglich sowas hier zu veranstalten?

Delphi-Quellcode:

    MailReader := TIdMessage.Create;
    MailReader.LoadFromFile(Filename);
    ... mach was mit der Mail ...
    MailReader.Flags := {MailReader.Flags + }[mfSeen];
    MailReader.SaveToFile(Filename);

Also Maildatei (eml) von der Platte lesen und auf erledigt setzen, damit sie vom Programm als "schon bearbeitet" erkannt werden kann beim nächsten Durchlauf.

Der Ablauf oben läuft ohne Fehler und die Mail wird auch neu gespeichert, die Flags allerdings nicht. Warum?