Fórum SpeedButton - Falhando #298629

begin
        If not Verifica_Campo_Obrigatorio then
begin
        Exit;
end
        else
begin
        If ECodigo_Barras2.Visible = True then
            begin
                  DMProdutos.CDSCadItensNotaCODIGO_BARRAS.Text := ECodigo_Barras2.Text;
                  DMProdutos.CDSCadItensNotaDESCRICAO.Text     := EDescricao2.Text;
                  ECodigo_Barras2.Visible                      := False;
                  EDescricao2.Visible                          := False;

                  ECodigo_Barras.Visible                       := True;
                  EDescricao.Visible                           := True;
            end;

        DMProdutos.CDSCadItensNotaISENTO_PIS_COFINS.Text := EIsento.Text;

        DMProdutos.CDSCadItensNota.Post;

        Limpa_Entrada(FCadEntradaProdutos);

        DMProdutos.CDSCadSituacaoTributaria.Close;
               

        ECodigo_Barras.Enabled             := False;
        EDescricao.Enabled                 := False;
        DBELote.Enabled                    := False;
        DBEDataValidade.Enabled            := False;
        EIsento.Enabled                    := False;
        DBLCBRefSituacaoTributaria.Enabled := False;
        DBEUnidade.Enabled                 := False;
        DBEQuantidade.Enabled              := False;
        DBEValorUnitario.Enabled           := False;
        DBEDesconto.Enabled                := False;
        DBEValorTotal.Enabled              := False;

        DBERSCusto.Enabled                 := False;
        DBEMargemLucro.Enabled             := False;
        DBEDescontoPreco.Enabled           := False;
        DBERSVenda.Enabled                 := False;
        DBELucroReal.Enabled               := False;

        SBNovaReferencia.Enabled           := False;
        SBNovo.Enabled                     := True;
        SBAlterar.Enabled                  := False;
        SBSalvar.Enabled                   := False;
        SBCancelar.Enabled                 := False;
        SBExcluir.Enabled                  := False;
end;
end;

begin
        If ECodigo_Barras2.Visible = True then
            begin
                  If ECodigo_Barras2.Text = ´´ then
                      begin
                            MessageDlg(´O campo "CÓDIGO BARRAS\REFERENCIA" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If ECodigo_Barras2.CanFocus then
                                  ECodigo_Barras2.SetFocus;
                                  Result := False;
                                  Exit;
                      end;

                  If EDescricao2.Text = ´´ then
                      begin
                            MessageDlg(´O campo "DESCRIÇÃO" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If EDescricao2.CanFocus then
                                  EDescricao2.SetFocus;
                                  Result := False;
                                  Exit;
                              end;
            end
        else
            begin
                  If ECodigo_Barras.Text = ´´ then
                      begin
                            MessageDlg(´O campo "CODIGO BARRAS\REFERENCIA" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If ECodigo_Barras.CanFocus then
                                  ECodigo_Barras.SetFocus;
                                  Result := False;
                                  Exit;
                      end;

                  If EDescricao.Text = ´´ then
                      begin
                            MessageDlg(´O campo "DESCRIÇÃO" deve ser preenchido!´, mtInformation, [mbOk], 0);
                              If EDescricao.CanFocus then
                                  EDescricao.SetFocus;
                                  Result := False;
                                  Exit;
                              end;
           end;
end;