procedure DeleteAllIndex(db :TTable); var L :TStringList; z :Integer; begin L:=TStringList.Create; DB.GetIndexNames(L); DB.IndexName:=''; for z:=0 to L.Count-1 do db.deleteIndex(L[z]); L.Free; end;