有用过SakMail控件的请进，我连不上POP服务器(谢谢)

Question

这是我的连接部分代码 各位高手请看一下什么地方有问题
 POP3.Connect就执行不了执行到这就报错了??这是什么原因引起的啊？procedure TTPopMail.ConnToPOPServer;
var
   pop3 : TSakPOP;
begin
    pop3 := TSakPOP.Create(nil);
    pop3.Host := 'POP.126.com';
    pop3.UserId := '[email protected]';
    pop3.UserPasswd := '******';
    Pop3.Disconnect;
    POP3.Connect;
    if not Pop3.Connected then
    begin
        MSGBOX('系统提示', 'Connect failed. Maybe the server is down or not responding.');
        exit;
    end
    else
        POP3.Login;    if not Pop3.login then
    begin
        MSGBOX('系统提示', '用户名或密码错误!');
        exit;
    end
    else
        POP3.Init;
end;