Hilfe: Emails empfangen => Auslesen von Mailbody und Anha

[Beatmaster S]

Hallo zusammen,
ich hab ein paar Probleme mit dem Auslesen von Mailbody und Anhängen (ich hoffe ich hab das richtig ausgedrückt). Es wäre super nett wenn mir jemand den untenstehenden Code erklären könnte! (PS: ich bin kein Pro )
Schon mal einen Dank im voraus!!

Code:

for intindex:= 0 to pred(idmessage1.messageparts.count) do begin
  if (idmessage1.messageparts.items[intindex] is tidAttachment) then do begin
    li := anhangViewMessageParts.Items.add;
    li.caption := Tidattachment(idmessage1.messageparts.Items[intindex]).filename;
  end //end 'if'
  else begin
    if idmessage1.MessageParts.items[intindex] is tidText then begin
      memoNachricht.lines.clear;
      MemoNachricht.lines.addstrings(tidtext(idmessage1.messageparts.items[intindex]).body);
    end; //end 'if'
  end; //end 'else'
end; //end 'for'

Ich hoffe der Code stimmt soweit!