vorhandenen Index ermitteln

[Fritz01]

Hallo,
habe gestern noch lange gelesen und gebastelt mit dem Ergennis:

Delphi-Quellcode:

procedure TForm1.GridTitleClick(Column: TColumn);
var
  sName : String;
  I : integer;
 begin
  sName := Column.Field.FieldName; // Feldname
  // vorhandenen Index suchen
  Table.Active := False;
  Table.Exclusive := True;
  Table.IndexDefs.Update;
//------------------- 1) Index für dieses Feld vorhanden
  for I := 0 to Table.IndexDefs.Count  -1 do   // vorhandenen Index suchen

   if Table.IndexDefs.Items[I].Fields = sName then
   begin
     Table.IndexName := sName;           //vorhandener Index einsetzen;
     Table.Exclusive := False;
     Table.Open;
     Label1.Caption:= '';
     Label2.Caption:= '';
     Label1.Caption := 'Index vorhanden';
   end
//------------------- 2) Index nicht vorhanden
   else               //
   begin
     Label1.Caption:= '';
     Label2.Caption:= '';
     Label1.Caption:='Index nicht vorhanden';
     Label2.Caption:='Index erstellen';

//     Table.AddIndex(sName, sName,[]);   // <--
//     Table.IndexName := sName;          // <--

     Table.Exclusive := False;
     Table.Open;
   end;
 end;
end.

Das funktioniert aber nur teilweise, ich weiß nicht weiter!

Da steckt noch ein Fehler drin, den ich aber nicht sehen kann.
1. Ist in der Tabelle ein Index vorhanden, so dürfen die Zeilen <-- nicht aktiv sein
2. Ist in der Tabelle kein Index vorhanden und die Zeilen <-- sind aktiv, so wird ein Index erstellt, eingesetzt.
Die Label sind nur zur Kontrolle. If else end wird ignoriert, auch wenn Index vorhanden geht es immer in Teil 2) da muß wohl der Fehler sein!!??

Fritz