Erstellen eine Indexdatei für DBASE Datenbank

[Carlos1997]

Hallo,
ich habe ein Problem mit einer älteren Delphi4 Datenbankanwendung.
Ich öffne eine DBASE Datenbank mit Table1 und Indexdatei.
Leider ist die Indexdatei defekt oder nicht mehr in Ordnung.
Nun möchte ich eine Abfrage programmieren die überprüft ob die
Indexdatei noch vorhanden ist, wenn nicht soll sie neu erzeugt
werden.

Beispiel:

Delphi-Quellcode:

  Table1.TableName := 'MUSTER.DBF';
  Table1.Exclusive := True;
  If NOT FileExists('MUSTER.MDX') Then Begin
    Table1.IndexName := '';
    Table1.ReadOnly := False;
    Table1.Active := True;
    Table1.AddIndex(Dateiname,'DATUM',[ixPrimary]);
    Table1.Active := False;
  End;

Leider ist hierfür die Funktion AddIndex nicht die richtige.
Für einen Lösungsvorschlag wäre ich dankbar.

http://www.delphipraxis.net/images/smiles/wall_bash.gif
ouch!

[edit=r_kerber]Delphi-Tags gesetzt. Mfg, r_kerber[/edit]