Na dann lag ich ja doch nicht so falsch !
Ich habe es jetzt so geregelt, damit kann ich auch beim Laden der Mails von der Platte den Status prüfen.
Delphi-Quellcode:
if pos('X-Spam-Status: Yes', msg.Headers.Text) <> 0 then
itm.SubItems.Add(Msg.Subject + ' *** SPAM ***')
else
itm.SubItems.Add(Msg.Subject);