Fórum Erro no envio de email no windows 7 com Delphi 2010 #418664

procedure TForm1.SendEmail;
var
  IdSMTP : TIdSMTP;
  lMensagem : TIdMessage;
begin
  CloseFile(Arquivo);
  try
    try
      IdSMTP := TIdSMTP.Create(nil);

      try
        lMensagem := TIdMessage.Create(nil);

        IdSMTP.IOHandler := SSL;
        IdSMTP.AuthType := satDefault;

        idSMTP.Username := email;// emaildo usuario
        idSMTP.Password := password;// senha do usuario
        idSMTP.Host := smtp.gmail.com;// host do usuaro ex.: provedo.mail.com.br
        idSMTP.Port := 25;// já tentei com 465 tambem
        IdSMTP.UseTLS := utUseRequireTLS;

        try
          with lMensagem do
          begin
            Subject := Assunto;// assunto
            From.Address := email;// email de origem
            Recipients.EmailAddresses := email;// email de destino
            Body.Text := body;// texto do email


            TIdAttachmentFile.Create(MessageParts, Path + NomeArquivoAtual); // usado para anexar arquivos

            idSMTP.Connect;
            idSMTP.Authenticate;

            idSMTP.Send(lMensagem);
          end;
        finally
          idSMTP.Disconnect;
        end;

      finally
        lMensagem.Free;
      end;

    finally
      IdSMTP.Free;
    end;

  except

  end;
end;