A ver si me ayudan aca me da error de '.' expected but ) found :
Código Delphi
[-] if (Msg.MessageParts.Items[J] is IdAttachment) then else
if Msg.MessageParts.Items[J] is IdText then
begin
Memo1.Lines.AddStrings(TIdText( Msg.MessageParts.Items[J]).Body);
BodyS.AddStrings( TIdText( Msg.MessageParts.Items[ J ]).Body );
end;
end;