使用IDPOP3控件收取邮件的方法

使用IDPOP3控件收取邮件的方法

Delphi6中，提供了IDPOP3控件，我能检测到邮箱中的邮件却不能收取邮件件，使用Retrieve方法不能得到理想的结果，我写的代码如下：

procedure TForm1.Button1Click(Sender: TObject);
var iCount : integer;
msg : TidMessage;
begin
msg :=TIdMessage.Create(self);
iCount :=0;
idpop31.Host := edit1.Text;
idpop31.UserId:=edit2.Text;
idpop31.Password:=edit3.Text;

idpop31.Connect;
if idpop31.Connected then
showmessage('已经成功登陆到邮件服务器！');

showmessage(inttostr(idpop31.CheckMessages));

idpop31.Retrieve(iCount,msg);
//明明有邮件为什么得不到信息？

idpop31.Disconnect;
msg.Free;
end;

如果哪位熟悉IDPOP3控件，希望能给予帮助，必非常感谢！