Du hast eine 0 basierte Liste, d.h. die Items gehen von 0 bis Count
-1
Code:
// Teile der Email durchgehen
For j:=0 to EMail.MessageParts.Count[color=#ff0000]-1[/color] do
begin
[i][color=#3b00ff]// anschließen 0 mit J ersetzen[/color][/i]
//wenn ein Teil Text ist, diesen in Email ablegen
IDmessagePart := Email.messageparts.items[[color=#ff0000]j[/color]];
...
...