Fehler bei Index

[SaFu]

Hi kann mir jemand sagen wo hier der Fehler liegt bekomme einen index fehler wenn ich im Editfeld versuche einen Buchstaben einzu geben

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
                   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:= 'Nr.';
    SetKey;
    FieldByName('SName').AsString:= Edit1.Text;
    GotoNearest;
   end;
end;