procedure TForm1.Button15Click(Sender: TObject); //建索引
begin
  Table1.Exclusive:=True;;
  Table1.TableName:='TEST.DBF';
  Table1.AddIndex('NO1','NO',[ixUnique]);
  Table1.AddIndex('TEL','TEL1＋TEL2',[ixExpression]);  
end;    procedure TForm1.Button16Click(Sender: TObject); //刪所有索引
var i:integer;
begin 
  Table1.Exclusive:=True;
  Table1.Open;
  Table1.IndexDefs.Update;
  For i:=0 to Table1.IndexDefs.Count-1 do
      Table1.DeleteIndex( Table1.IndexDefs.Items[i].Name);
  Table1.Close;
end;