Hola.
He probado el código que te puse de ejemplo y como podrás ver, funciona correctamente:
Sólo agregué una línea:
Código Delphi
[-]
procedure TLogin.btnAceptarClick(Sender: TObject);
begin
if not DataModule1.LoginAccepted(DBLookupComboBox1.Text, EditPassword.Text) then
raise Exception.Create('El usuario o la contraseña son inválidos.');
ShowMessage('INGRESA...'); end;
Saludos