vorhandenen Index ermitteln

[Fritz01]

@hoika,
danke für die Antwort. Der Link hat mir nicht wirklich weiter geholfen.
Beim bisherigen Code gibts ja noch nicht viel zu sehen.

Delphi-Quellcode:

procedure TForm1.GridTitleClick(Column: TColumn);
var
 sName : String;
 begin
  sName := Column.Field.FieldName; // GridTitleName
  Label1.Caption := sName;
// vorhandenen Index suchen

// if {index für das Feld vorhanden} then
// begin
//     Label1.Caption := 'Index vorhanden';
//     Table.IndexFieldNames := //vorhandener Index;
// end
// else {Index nicht vorhanden} then
// begin
//   Index erstellen
     Table.AddIndex(sName, sName, []);
     Table.IndexFieldNames := sName;
// end;

// hier alle neu erstellten indexe löschen

 end;

das funktioniert, solange keine Indexe vorhanden sind. Dann kommt das Problem!
Sollte ich eine kl. Demo anhängen?
Fritz