Clase para hacer ABM

[[mateamargo]]

Hice una clase para hacer ABM a traves de BDE todo funciona ok.
Pero ahora quise cambiarla por un componente de acceso directo a la base de datos en este caso firebird use zeoslib.
Me encuentro que en la tabla no existe la propiedad indexfieldcount yo la uso para posicionarme en el siguiente campo que no sea parte de la clave para poder modificar, etc.
Ahora bien para suplir esto hice lo siguiente:

Código Delphi [-]
 var
   i,cantidad:integer;
 begin
   cantidad := 0;
   for i := 0 to tabla.FieldCount -1 do
   begin
     if tabla.Fields[i].IsIndexField then inc(cantidad);
   end;

Pero siempre en cantidad me retorna 0, la instrucción

Código Delphi [-]
   if tabla.Fields[i].IsIndexField then inc(cantidad);

siempre me retorna false, que puedo estar haciendo mal ?
Desde ya muchas gracias por vuestro tiempo.
Saludos a todos