Fórum Problemas na mudança do BDE para ADO. #175145

procedure TF_Login.BitBtn1Click(Sender: TObject);
Var
  CONTEUDOSENHA : TStringField ;
begin
 --->  If Not (DM_Modulo.TabLogin.FindKey([Edit1.Text])) Then <---
    Begin
      ShowMessage(´Login recusado, usuário(a) não cadastrado(a)...´) ;
      Edit1.SetFocus ;
      Exit ;
    End ;
  CONTEUDOSENHA := DM_Modulo.TabLogin.FindField(´Senha´) as TStringField ;
  Encrypt(Edit2.Text);
  If (CONTEUDOSENHA.Value <> Edit2.Text) Then
    Begin
      ShowMessage(´Login recusado, senha inválida...              ´) ;
      Edit2.SetFocus ;
      Exit ;
    End ;
  if  ((DM_Modulo.TabLoginLogin.Value = Edit1.Text) and (DM_Modulo.TabLoginSenha.Value = Edit2.Text)) then
      begin
      F_Menu.Enabled:=True;
      F_Menu.LinhaStatus.Panels[1].Text:=(´ Logado como: ´+ Edit1.Text);
      end;
        F_Login.Release ;
end;