[Djsilver5]

YA acepto el código pero cuando selecciono el Usuario y escribo la contraseña, despues de dar clic al boton aceptar me sale el siguiente error.

Project Sistema.exe raise Exception class Exception with message'El usuario o la contraseña son inválidos'.Process stopped. Use Step or Run to continue.

justo al final en

Código Delphi [-]
procedure TAccesoSistema.AceptarClick(Sender: TObject);
begin
  if not DataModule2.LoginAccepted(edtUsuarios.Text, edtPassword.Text) then
     raise Exception.Create('El usuario o la contraseña son inválidos.');
end;
end.

En el codigo de Form AccesoAlSistema

Código Delphi [-]
unit AccesoAlSistema;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Buttons, ExtCtrls;

type
  TAccesoSistema = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Empresa: TLabel;
    Agencia: TLabel;
    Usuarios: TLabel;
    Password: TLabel;
    Cancelar: TBitBtn;
    edtEmpresa: TDBLookupComboBox;
    edtAgencia: TDBLookupComboBox;
    edtUsuarios: TDBLookupComboBox;
    edtPassword: TEdit;
    Aceptar: TBitBtn;
    procedure CancelarClick(Sender: TObject);
    procedure AceptarClick(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccesoSistema: TAccesoSistema;

implementation  {$R *.dfm}

uses DataModule02;



procedure TAccesoSistema.CancelarClick(Sender: TObject);
begin
close;
end;
procedure TAccesoSistema.AceptarClick(Sender: TObject);
begin
  if not DataModule2.LoginAccepted(edtUsuarios.Text, edtPassword.Text) then
    raise Exception.Create('El usuario o la contraseña son inválidos.');
end;
end.