[Edwardfeliz]

Empezado por steelha

A ver si me ayudan aca me da error de '.' expected but ) found :

Código Delphi [-]
                               if (Msg.MessageParts.Items[J] is IdAttachment) then  //en esa linea me da este error no veo el problema
                               else
                                   // begin
                                      // for K := 0 to 1 do
                                         // begin
                                                 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;

Yo lo probe y a mi no me dio ese problema, aunque tube que cambiar IdAttachment por TIdAttachment y IdText por TIdText en esa linea no esta el problema, muestra el código superior para poder visualizar el problema.

Saludos!