Envio Email com SSL

    try

        with IdSMTP do
        begin
            AuthType  := atDefault; //Login
            Host      := ´smtp.gmail.com´;
            Password  := ´MINHASENHA´;
            Port      := 465;
            Username  := ´MEUEMAIL@gmail.com´;
            IOHandler := IdSSLIOHandlerSocketOpenSSL1;
            UseTLS    := utUseRequireTLS;
            ConnectTimeout := 10000;
            ReadTimeout    := 10000;
            AuthType := atDefault; //Login
        end;//with

        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv2;
        IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode   := sslmUnassigned;


        IdMessage.Clear;
        IdMessage.MessageParts.Clear;
        if lstAnexos.Items.Count > 0 then
        begin
        for i:= 0 to lstAnexos.Items.Count - 1 do
            TIdAttachmentFile.Create(IdMessage.MessageParts, lstAnexos.Items[i]);
        end;

        IdMessage.From.Address := ´MEUEMAIL@gmail.com´;
        IdMessage.From.Text    := ´MEUNOME´;
        IdMessage.Subject      := edtAssunto.Text;
        IdMessage.Body.Text    := CORPODOEMAIL_STRING;
        IdMessage.Recipients.EMailAddresses := EdtPara.Text; //email destino
        IdMessage.CCList.EMailAddresses     := EdtCC.Text;
        IdMessage.BccList.EMailAddresses    := EdtCCO.Text;

        if not IdSMTP.Connected then
        begin
            IdSMTP.Connect();
            IdSMTP.Authenticate();
        end;//if

        if IdSMTP.Connected then
           IdSMTP.Send(IdMessage);
        Application.ProcessMessages;

    except
      on E: Exception do
        Mensagem(E.Message, mtError, Self.Name);
    end;
    IdSMTP.Disconnect;