ADO Database Delphi

Function Tablo_Index_Tamiri(Table: TTable): Boolean;
Begin
Table.Active:= False;
Table.Exclusive:= True;
Table.Active:= True;
DBIRegenIndexes(Table.Handle);
Table.Active:= False;
Table.Exclusive:= False;
Table.Active:= True;
Result:= True;
End;