Despues de Mensaje de error en user y password

[el_barto]

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
   DataModule2.IBDatabase1.Params.Values['USER_NAME'] := Edit1.Text;
   DataModule2.IBDatabase1.Params.Values['PASSWORD']  := Edit2.Text;
   try
	 DataModule2.IBDatabase1.open;
	 DataModule2.IBTransaction1.Active := True;
	 DataModule2.IBDataSet1.Active := True;
   except
	 MessageDlg ('SU USER O PASSWORD NO ES VALIDO', mtError,[mbyes],0);
   end;
   if DataModule2.IBDatabase1.Connected then
	 begin
	   ModalResult := mrOk;  //  Avisamos que todo esta OK
	 end;
end;

Buenos dias foro tengo un problemilla con este codigo compila superbien, lo que hace es que cuando el user o pass esta mal saca un mensaje de error pero sin embargo me deja entrar al aplicativo, no se que meter en el except para que cuando despues de que me saque el mensaje me siga mostrando la pantalla que pide el user y pass.

Gracias por prestarme atencion