TIdMessage TIdPOP3 收邮件有关问题,多谢

TIdMessage TIdPOP3 收邮件问题,谢谢！
一次收两封名字一样附件不同的邮件,为什么用以下代码得到的附件内容是一样的（都是第一次得到的内容）,

            j:=idpop31.CheckMessages;
            for   i:=1   to   j   do
            begin
                        IdMessage1.Clear;
                        idpop31.Disconnect;
                        idpop31.Connect;
                        idpop31.Retrieve(1,IdMessage1);
                        temps   :=   IdMessage1.Subject;
                        .........处理附件
                        TIdAttachment(IdMessage1.MessageParts.Items[k]).SaveToFile(TIdAttachment(IdMessage1.MessageParts.Items[k]).FileName);
                        idpop31.Disconnect;
                        idpop31.Connect;
                        idpop31.Delete(1);
              end;

[解决办法]
TIdAttachment(IdMessage1.MessageParts.Items[k]).SaveToFile(TIdAttachment(IdMessage1.MessageParts.Items[k]).FileName); 
=============此句的items[k] 改吧 items[i]
[解决办法]
idpop31.Retrieve(1,IdMessage1); 
改成
idpop31.Retrieve(i,IdMessage1);