Problkem z odbiorem poczty + indy9

Witam

Może ktoś pomoże rozwiązać mój problem. Otóż w swojej aplikacji napisałem kod odpowiedzialny za odbiór wiadomości e-mail i załącznika. Aplikacja wyswietla mi ilość wiadomości i załączników, ale przy próbie wyświetlania wiadomości w oknie MEMO program wyswietla mi tylko treść tych wiadomości, które posiadają załącznik a gdy załcznika nie ma treść nie jest wyświetlana.

Z góry dziękuje za jakąkolwiek podpowiedź.

void __fastcall TForm1::ListView1SelectItem(TObject *Sender,
      TListItem *Item, bool Selected)
{
    Memo2->Lines->Clear();

  if(Selected && Item)
  {
        ListBox1->Clear();
        IdMessage2 =(TIdMessage*)Item->Data;
         Memo2->Clear();

        for(int i=0;i<IdMessage2->MessageParts->Count;i++)
        {
            if(IdMessage2->MessageParts->Items[i]->DisplayName=="TIdText")
            //if(IdMessage2->MessageParts->Items[i]->ContentType.AnsiPos(AnsiString()+"plain"))
            {
               TIdText *p = (TIdText*)IdMessage2->MessageParts->Items[i];
               Memo2->Lines->AddStrings(p->Body);
            }

            if(IdMessage2->MessageParts->Items[i]->DisplayName=="TIdAttachment")
            {
              TIdAttachment *zal = (TIdAttachment*)IdMessage2->MessageParts->Items[i];
              ListBox1->Items->Add(zal->FileName); 
            } 
        } 
     }
 }
 

Zauważyłem cenną rzecz, wszystkie wiadomości z załącznikiem mają załącznik + 2 załącznik z treścią meila, a te bez dodatkowego załącznika nie mają tez załącznika z treścią,