Fórum Criar login. #191297

Procedure logar(Sender: TObject);
Begin
If Not Table1.FindKey(´Nome do Campo´ , Edit1.Text , []) Then
   Begin
         ShowMessage(´ O usuário ´ + Edit1.Text + ´ não foi encontrado!´ +13+ 
                              ´ Entre em contato com o Administrador do Sistema.´);
         Edit1.Text := SetFocus;
         Exit;
    end;
End;