Problem mit Autoinkrement

[Chris P]

Kann mir jemand sagen wo hier der Fehler liegt?

Delphi-Quellcode:

procedure TForm1.UpdateIndex();
var
   Index: Integer;
begin
   Table1.First;
   for Index := 0 to Table1.RecordCount-1 do
   begin
       Query1,SQL.Add('UPDATE Daten SET Daten.Nr = ' + IntToStr(Index)); // Daten = Name der Datebank 
       Table1.Next;
   end;
end;

Der Wert Daten.Nr ist als Integer deklariert.
Jeder Eintrag erhält hier dieselbe Nummer.
Das soll aber grad nicht der Fall sein.