Problem mit Autoinkrement

[HaJo]

Morgen zusammen,

ich würde es so versuchen:

Delphi-Quellcode:

procedure TForm1.UpdateIndex(); 
var 
   Index: Integer; 
begin 
   Index:=0; 
   Table1.First; 
     While Not Table1.EOF do 
     begin 
        Table1.FieldByName('Nr').AsInteger:=Index; 
        Table1.Edit; 
        TRY
           Table1.Post; 
        EXCEPT
           Table1.Cancel; 
        END; 
        Table1.Next; 
        Inc(Index); 
     end; 
     //Table1.Browse; - dieser Befehl ist mir unbekannt
     Table1.first; 

end;

Gruß
Jochen