(DBExpress)la función IsIndexField del TSQLQuery siempre me devuelve falso

[amezeta32]

Saludos!!

Esty programando una rutina mediante la cual se puede averiguar si un campo
de una tabla dada pertenece al índice activo(ya probé en SQL server express y firebird 1.5 ).

Algo más o menos asi:

bool EsCampoIndice(AnsiString nemo, AnsiString campo)
{
AnsiString nombreTabla=DameNombreTabla(nemo);
TSQLQuery* qry= new TSQLQuery(NULL);
qry->SQL->Text="select * from "+nombreTabla+" where 1=0";
qry->Open();
TField* fldCampo=qry->Fields->FindField(campo);
bool result=fldCampo->IsIndexField;//siempre es falso.
qry->Close();
delete qry;
return result;



}