delphi7发送SSL邮件（QQ邮箱）

[xmyouku]

IdSSLIOHandlerSocket1.SSLOptions.Method :=sslvSSLv3;

IdSMTP1.IOHandler := IdSSLIOHandlerSocket1;
IdSMTP1.Port := 465;
IdSMTP1.Host := 'smtp.gmail.com';
IdSMTP1.AuthenticationType := atLogin;

IdSMTP1.UserName := '123456';
IdSMTP1.Password :='xxxx';

// 设置邮件的信息
IdMessage1.From.Address := '[e-mail]';
IdMessage1.Recipients.EMailAddresses := '[e-mail]';
IdMessage1.Subject := 'test';
IdMessage1.Body.Text := 'test';

//发送邮件
try
try
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
memo2.Lines.Add ('发送成功');
except on E:Exception do
memo2.Lines.Add ('发送失败: ' + E.Message);
end;
finally
if IdSMTP1.Connected then
IdSMTP1.Disconnect;
end;

IdMessage1.Free;
IdSSLIOHandlerSocket1.Free;
IdSMTP1.Free;



会提示报错：发送失败: Socket Error # 10060
Connection timed out.



谁能给个具体的例了。。。。。