怎样使用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控件，希望能给予帮助，必非常感谢！