Pegar anexo dentro de mensagem anexa em email.

Olá bom dia.     Como abrir a mensagem que veio anexa no email e pegar anexo dentro da mensagem?   O anexo simples consigo tratando da seguinte forma:   if(IdMessage1.MessageParts.Items[x] is TIdAttachmentFile) then
            begin
              if trim(TIdAttachmentFile(IdMessage1.MessageParts.Items[x]).FileName) <>'' then   ............   Mas quando e uma mensagem que vem anexo nao tem Filename.   Como eu pego o anexo dentro da mensagem anexa.   Grato.