IMAP emails auf attachment prüfen

[endeffects]

Hallo,

ich möchte mit meinem email client und den indys alle eingegangenen
nachrichten auf einem imap server auf einen anhang prüfen.

leider funktionieren dinge wie MessageParts.AttachmentCount
oder length(TheMsg.Headers.Values['X-Attachments']) > 0 irgendwie nicht.

oder stellt der imap server evtl selbst eine möglichkeit (flag) bereit?
hat vielleicht jemand eine idee wie ich das problem lösen kann?

Delphi-Quellcode:

            Inbox.RowCount := nCount + 1;
            for i := 0 to nCount-1 do begin
                TheImap.GetUID(i+1, TheUID);
                TheImap.UIDRetrieveFlags(TheUID, TheFlags);
                TheImap.UIDRetrieveHeader(TheUID, TheMsg);
                Inbox.Cells[0, i+1] := IntToStr(i+1);
                Inbox.Cells[1, i+1] := TheUID;
                if length(TheMsg.Headers.Values['X-Attachments']) > 0 then
                    Inbox.Cells[2, i+1] := 'yes'
                else
                    Inbox.Cells[2, i+1] := 'no';
                Inbox.Cells[3, i+1] := ' ' + LowerCase(TheMsg.Subject);
            end;