Fehler bei Index

[SaFu]

ok habe es falls es jemand interessiert

Delphi-Quellcode:

procedure TForm1.Tabelleerst; 
begin 
Table1.close; 
  getdir(0,Pfad); 
   With Table1 Do  //Tabelle erzeugen 
     begin 
      DatabaseName:= (ExtractFilePath(ParamStr(0)) + 'Adress\'); //Pfad zur Tabelle 
      Form2.Table1.DatabaseName:= (ExtractFilePath(ParamStr(0)) + 'Adress\'); 
      TableName:= 'Adress.DB'; 
      Form2.Table1.TableName:= 'Adress.DB'; 
      TableType:= ttParadox; 
     end; 
      if not FileExists(ExtractFilePath(ParamStr(0)) + 'Adress\Adress.DB') then 
        begin 
          With Table1 Do 
            begin
              with FieldDefs Do //Datenfelder erzeugen
                begin
                 Clear;
                 Add('Nr',ftAutoInc,0,True);
                 Add('SName',ftString,30,True);
                 Add('SStraße',ftString,30,False);
                 Add('SOrt',ftString,30,False);
                end;
                  with IndexDefs do //Index Schlüssel erzeugen
                   begin
                    Clear;
                    Add('Nr','Nr',[ixPrimary, ixUnique]); // Primär Index
                    Add('SName','SName',[]);
                   end;
                    CreateTable;
                end;
        end;
     Table1.Active:= True; //Tabelle1 auf Form1 aktivieren
    Form2.Table1.Active:= True; //Tabelle1 auf Form2 aktivieren
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  With Table1 do
   begin
    IndexName:= 'SName';
    SetKey;
    FieldByName('SName').AsString:= Edit1.Text;
    GotoNearest;
   end;
end;