[ecfisa]

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...'); // <--- LINEA AGREGADA
end;

Saludos