如何使用delphi xe2中的indy组件发送邮件？

Question

首先我有这个代码，我尝试使用Gmail Smtp服务器，但我的结果有错误异常：Socket°10060 !!!! 这是一个延迟插座错误，如果任何人尝试过此之前，请为他工作只是与我分享这个想法谢谢!!!!

 VAR SMTP : TIdSMTP;  VAR MSG : TIdMSG;
 MSG:=TIdMSG.Create(NIL);

 TRY
    WITH MSG.Recipients.Add DO BEGIN
  Name:='<Name of recipient>';
  Address:='<Email address of recipient>'
END;
MSG.BccList.Add.Address:='<Email address of Blind Copy recipient>';
MSG.From.Name:='<Name of sender>';
MSG.From.Address:='<Email address of sender>';
MSG.Body.Text:='<Message Body>';
MSG.Subject:='<Subject of message>';
SMTP:=TIdSMTP.Create(NIL);
TRY
  SMTP.Host:='x.x.x.x'; // IP Address of SMTP server
  SMTP.Port:=25; // Port address of SMTP service (usually 25)
  SMTP.Connect;
  TRY
    SMTP.Send(MSG)
  FINALLY
    SMTP.Disconnect
  END
FINALLY
  SMTP.Free
END

最后     MSG.Free   END;