请问indy pop3接收不到@hotmail.com 邮件

请问indy pop3接收不到@hotmail.com 邮件在线等
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdPOP3, IdBaseComponent, IdMessage;type
  TForm1 = class(TForm)
    IdMessage1: TIdMessage;
    IdPOP31: TIdPOP3;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  mailcount : integer;
  i : integer;
  tmp : string;
begin
  IdPOP31.Connect();    //连接到POP3服务器
  mailcount := IdPOP31.CheckMessages;  //得到邮箱邮件的各数
 //for i:=1 to mailcount do   //遍历每一封邮件
 //begin
     IdMessage1.Clear;
     IdPOP31.retrieveHeader(1,IdMessage1);  //得到邮件的头信息
     tmp := IdMessage1.Subject;      //得到邮件的标题
     Memo1.Lines.Add(tmp);
     IdPOP31.Retrieve(1,IdMessage1);  //接收到邮件所有内容
     tmp := IdMessage1.Body.Text;   //邮件正文
     memo1.Lines.Add(tmp);
 //end;
  IdPOP31.Disconnect;   //断开连接
  IdPOP31.Free;end;  end.