Error en Login. ¿como lo capturo y lanzo la excepcion?

[gorsan]

Hola a todos/as.

Vaya por delante que trabajo con interbase 6 y delphi 7.
Estoy intentando construir un formulario de entrada a la aplicacion. En el mismo pongo un combobox con todos los usuarios de la base de datos y debajo un Edit para introducir el password. No se como capturar la excepcion que se produce cuando el usuario se equivoca en la password. Estoy intentando el siguiente codigo pero me falla.

Código Delphi [-]
procedure TAcceso_Programa.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Cursor:=crHourGlass;
BitBtn1.Enabled:=False;
with DM.IBDB do
 begin
   Connected:=False;
   LoginPrompt:=False;
   DataBaseName:='Nombre_Aplicacion.GDB';
   Params.Values['user_name']:=ComboBox1.Text;
   Params.Values['password']:=Edit1.Text;
   try
    Connected:=True;
    Form1.Show; //este es el formulario principal de la aplicacion
   except
    on ELoginFailed do ShowMessage('Contraseña incorrecta.');
   end;
 end;
Close;
end;

¿Alguien me puede echar un cable?