Fórum Criando componente TRxGifAnimator em Runtime #507442

with dmDados do
  begin
    if (cbTipoAtendimento.Text = 'Dúvidas') or (cbTipoAtendimento.Text = 'Financeiro') or
       (cbTipoAtendimento.Text = 'Sugestões') or (cbTipoAtendimento.Text = 'Reclamações') then
    begin
      with qryConfig, qryConfig.SQL do
      begin
        Close;
        Clear;
        Add('select * from configuracoes');
        Open;
      end;

      RxGIFAnimator1.Animate := True;
      smtpEmail.Host := Trim(qryConfig.FieldByName('configuracao_servidoremail').AsString);
      smtpEmail.Username := Trim(qryConfig.FieldByName('configuracao_email').AsString);
      smtpEmail.Password := Trim(qryConfig.FieldByName('configuracao_senhaemail').AsString);
      smtpEmail.Port := qryConfig.FieldByName('configuracao_portaemail').Value;

      if qryConfig.FieldByName('configuracao_necessitaautent').AsString = 'S' then
      Begin
        smtpEmail.AuthType := satDefault;
        smtpEmail.UseTLS := utUseExplicitTLS;
        socketEmail.SSLOptions.Method := sslvSSLv3;
      End
      Else
        smtpEmail.AuthType := satNone;

      smtpEmail.IOHandler := socketEmail;

      messageEmail.From.Address := Trim(qryConfig.FieldByName('configuracao_email').AsString);
      messageEmail.From.Name := Trim(qryConfig.FieldByName('configuracao_from').AsString);
      messageEmail.Recipients.EMailAddresses := 'marlon.minotti@gmail.com';

      messageEmail.Subject := Trim(cbTipoAtendimento.Text+' - '+editTitulo.Text);
      messageEmail.Body.Add(mmDescricao.Text);
      messageEmail.ContentType := 'multipart/mixed';

      Try
        if not smtpEmail.Connected then
          smtpEmail.Connect;

        smtpEmail.Send(messageEmail);

        ShowMessage('Mensagem enviada com sucesso.');
      Except
        On msg: Exception do
        begin
          ShowMessage('Erro ao enviar mensagem. Erro: '+msg.Message);
        end;
      end;
    end;