1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Table1.Active := False;

Table1.Exclusive := True;
{ Aktuell verfügbare Indizes ermitteln }
Table1.IndexDefs.Update;
{ Index suchen, der Customer Number ('CustNo') und Order Number ('OrderNo') kombiniert}
for I := 0 to Table1.IndexDefs.Count - 1 do
  if Table1.IndexDefs.Items[I].Fields = 'CustNo;OrderNo' then
   { diesen Index zum aktuellen machen }
    Table1.IndexName := Table1.IndexDefs.Items[I].Name;
Table1.Exclusive := False;

Table1.Active := True;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  sColumn : String;
begin
  sColumn := Column.FieldName; // Spaltennamen ermitteln
  if UpperCase(sColumn) = 'SPALTE1' then
      table1.IndexName := 'IndexName1';
  if UpperCase(sColumn) = 'SPALTE2' then
      table1.IndexName := 'IndexName2';
 // und so weiter.
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

with IndexDefs do
begin
    clear;
    // Prim-Index
    add('pIndexName','Feld1;Feld2;Feld3',[ixPrimary,ixUnique]);
    // Sec-Indexe
    add('sIndex1','Feld2;Feld4',[ixDescending]);
    add('sIndex2','Feld1;Feld3',[ixDescending]);
    add('sIndex3','Feld3;Feld4;Feld5',[]);
end;
createTable;