Tabelle mit Indizies neu erstellen

[Angel4585]

Hallo,

ich möchte eine Tabelle samt Indiezies neu ertsellen, so sieht mein Code dazu aus:

Delphi-Quellcode:

table1.Close;
table1.DatabaseName:=ADB;
if not table1.Exists then    
  begin
  table1.CreateTable;             
  table1.IndexDefs.Clear;
  table1.IndexDefs.Add('SortErledigt','ErledigtDatum',[ixDescending]);  
  end;
table1.IndexName:='SortErledigt';
table1.Open;

Wenn ich das so ausführe bekomme ich bei dem Open die Meldung:
---------------------------
Fehler
---------------------------
Index does not exist.

Index: SortErledigt
---------------------------
OK
---------------------------


Wenn ich die IndexDefs vor dem CreateTable mache, kommt folgende Meldung:
---------------------------
Fehler
---------------------------
Table is not indexed.

Table does not exist.

Table: D:\Pfad\XTabelle.db

File or directory does not exist.

File: D:\Pfad\XTabelle.db
---------------------------
OK
---------------------------

Was genau mach ich falsch, das hinzufügen von Indizies ging doch über IndexDefs oder?