zwiększanie numeru wierszy o 1

Chciałbym się dowiedzieć jak wykonać zmianę numeracji wszystkich rekordów od wyszukanego numeru.

if Table2.FindKey([a]) then begin
 a := InputBox('WYSZUKIWANIE','Podaj numer zmiany','');
Table2.SetKey;     { przejście do stanu wyszukiwania }
          Table2.FieldByName('Nr').AsString:= a;   { wpisanie konkretnego numeru zmiany  }
          Table2.GotoKey;

Podaję numer zmiany 23 i od tego miejsca chciałbym aby wszystkie rekordy
zwiększyły swoją wartość o 1.

Przed Po
Lp
21 21
22 22
23 24
24 25
25 26
26 27
27 28
28 29
29 30

..

może czas poczytać o SQLu i TQuery. Nie jest zalecane używanie TTable.