在Fields中做一个循环：
for i:=0 to Fields.Count - 1 do
if AnsiCompareStr(Fields.FieldNmae ,'Index') = 0 then
Find := True;
if not Find then
Table.FieldDefs.Add('Index', ftInteger, 0, True);
调用TTable.FidldDefs对象的Add方法向数据库表中添加字段。Add有4个参数：
 字段名:string。
 字段类型：TfieldType。
 字段大小：Word。一般只对String和Memo类型使用。
 字段是否NotNull: Boolean。
with FieldDefs do
begin
Add('Age', ftInteger, 0, True);
Add('Name', ftString, 25, False);
Add('Weight', ftFloat, 0, False);
end;
