step1:用IdPOP3接收邮件
step2:用CheckMessages得到邮件数目
step3:按邮件数目循环，用IdPOP3.RetrieveHeader(i, IdMessage)得到邮件头的细节
step4:每个邮件都按IdMessage.MessageParts.Count循环，
用IdMessage.MessageParts.Items[j] is TIdAttachment判断是否为附件
step5: 保存附件到本地d:/：
TIdAttachment(IdMessage.MessageParts.Items[j]).SaveToFile('d:/' +
TIdAttachment(IdMessage.MessageParts.Items[j]).Filename)
