Delphi中如何动态的创建索引？(50分)

各位大虾：

　　请教！我的数据库表为 Table_book，我想在查找的时候为它动态的创建索引！

　　我的代码为：
　　 with F_DM.Table1 do
　 begin
create Index BookInd on Table_book(Bname);
end;

　其中 Bname 为数据库表的字段！

　　结果出现错误提示：[Error] U_setuser.pas(114): Not enough actual parameters
　　　　　　　　　　　[Error] U_setuser.pas(114): Missing operator or semicolon
　　　　　　　　　　　[Error] U_setuser.pas(114): Undeclared identifier: 'Bname'

table1.AddIndex();

大虾：

　　是不是在AddIndex()中加入我上面写的语句！

　　多谢！

procedure AddIndex(const Name, Fields: String; Options: TIndexOptions, const DescFields: String
='');

Table1.AddIndex('NewIndex', 'CustNo', [ixUnique, ixCaseInsensitive]);
索引名字 字段名字 options

大虾：

　　我现在的问题是:我用的是 TTable 控件，那么我如何把我的数据表找出来呢？

　　还请赐教！

接受答案了.