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

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;



}