IdPOP31收邮件附件和正文（mime）的解码

Question

INDY10+delphi7
 
如何对正文解码，IdPOP31如何得到附件

Answer 1

var
  i，: integer;
  
i := IdPOP31.CheckMessages;  // 得到邮件数目
IdPOP3.RetrieveHeader(i, IdMessage); 
for i := 0 to IdMessage.MessageParts.Count do 
begin
  if  idMessage.MessageParts.Items[j] is TIdAttachment then // 說明是附件
  begin
   TIdAttachment(IdMessage.MessageParts.Items[j]).SaveToFile('d:\' +TIdAttachment(IdMessage.MessageParts.Items[j]).Filename)
  end;
end;

Answer 2

 TIdAttachment这个怎么调用啊？
我加了idmessage和idpop3都是说这个为空

Answer 3

值得说明的是：
要想取得正文，不能检索邮件头，而要检索邮件，即POP.Retrieve