如何判别关键字(150分)

在程序中，用TTable构件连接数据库之后，
是否有属性或方法可以判断到某字段是否关键字。

用ADOX倒是可以的。

没碰到过
************
procedure SetKeyFields(AKeyFields: string);
var
i: integer;
s: string;
begin
FKeyFields := AKeyFields;
FKeyFieldList.Clear;
while Length(AKeyFields) > 0 do
begin
i := Pos(';', AKeyFields);
if i <= 0 then
begin
i := Length(AKeyFields);
s := AKeyFields;
end
else
s := Copy(AKeyFields, 1, i - 1);
Delete(AKeyFields, 1, i);
s := Trim(s);
FKeyFieldList.Add(s);
end;
end;

多人接受答案了。