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

[[Lepe]]

Quizás te convenga usar los Mercury en lugar de Zeos, estan más avanzados y tambien son Open Source.

saludos

[[mateamargo]]

Hola,
Gracias por tu respuesta.
Ya los baje y los probe con el código que puse en hilo y no me funcionó tampoco
use la propiedad indexfieldcount y me devuelve 0.

[[mateamargo]]

Hola,
También use el código con el que empezo el hilo y tampoco funciono, como que no reconoce que el campo es parte de la clave de la tabla.
Gracias a todos
Saludos