Un detalle, cambia la línea:
Código Delphi
[-] if frm_DataModule.qry_usuarios.RecordCount > 0 then
por esta otra:
Código Delphi
[-] if not frm_DataModule.qry_usuarios.isEmpty then
el RecordCount solo funciona en tablas de escritorio (paradox), es demasiado costoso para implementarlo en Firebird u otro sistema c/s.
Saludos