Por lo que leí en Google, se desactivará por defecto ese día el acceso a aplicaciones no seguras pero puede volver a la configuración y volver a activarla, aunque no lo recomienda, entiendo que seguirá funcionando si se activa de nuevo esa opción en la configuración de la cuenta.
Yo he comprobado que se me siguen enviando los mail desde GMail, estos días, incluyendo hoy, uso el puerto 465 y se envía sin problema.
Te adjunto el código en C++, si por aquí hay alguien que lo pueda convertir en Delphi, ya que yo no me entero mucho de Pascal.
Código:
IdSMTP1->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
IdSMTP1->UseTLS = utUseImplicitTLS;
IdSMTP1->Host = _D("smtp.gmail.com");
IdSMTP1->Port = 465;
IdSMTP1->Username = _D("Usuario@gmail.com");
IdSMTP1->Password = _D("password");
IdSMTP1->AuthType = satDefault;
std::auto_ptr<TIdMessage> IdMessage1(new TIdMessage(NULL));
IdMessage1->Priority = mpHigh;
IdMessage1->Recipients->Add()->Address = "destinatario@maildeprueba.com";
IdMessage1->Subject = "Asunto";
IdMessage1->Encoding = meMIME;
IdMessage1->ContentType = _D("multipart/mixed");
IdMessage1->CharSet = _D("UTF-8");
IdMessage1->From->Address = _D("Usuario@gmail.com");
IdMessage1->From->Name = "Usario que envia";
TIdText *text = new TIdText(IdMessage1->MessageParts, NULL);
text->Body->Text = "Cuerpo del mensaje";
text->ContentType = _D("text/plain");
text->CharSet = _D("utf-8");
IdSMTP1->Connect();
IdSMTP1->Send(IdMessage1.get());
IdSMTP1->Disconnect();