Fórum Não consigo fazer meu programa enviar E-mail #612854

procedure TFormRequisicao.Envia_Email;
begin
  try
    IdSMTP1.AuthenticationType := atLogin;

    IdSMTP1.Host := 'smtp.gmail.com';
    IdSMTP1.Username := 'suprimentos@dominio.com.br;
    IdSMTP1.Password := 'senha';
    IdSMTP1.Port := 465;
    IdSMTP1.IOHandler := IdSSLIOHandlerSocket1;
    //IdSMTP1.UseTLS := utUseRequireTLS;
    IdSMTP1.Connect(30000);

    IdSMTP1.ReadTimeout := 30000;
    IdSMTP1.AuthenticationType := atLogin;


    IdSSLIOHandlerSocket1.SSLOptions.Method := sslvSSLv23;
    IdSSLIOHandlerSocket1.SSLOptions.Mode := sslmClient;

    // Utiliza Autenticação
    IdMessage1.From.Address := 'suprimentos@dominio.com.br';
    IdMessage1.Subject:= 'Requisicao .:' + editCodigo.Text;
    IdMessage1.Body.Clear;
    IdMessage1.Body.Add('Foi gerada uma nova requisicao.');
    IdMessage1.Body.Append('Numero. ' + editCodigo.Text);
    IdMessage1.Body.Append('Aguardando seu atendimento');
    IdMessage1.Body.Append('Contato ' + nomeUsuario);
    IdMessage1.Recipients.EMailAddresses  := 'suprimentos@dominio.com.br';

    if not IdSMTP1.Connected then
       IdSMTP1.Connect();
       IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
  end;
end;