Nach Löschen Positionen neu durchnummerieren

[LOMBI]

Hallo,

Rechnungspositionen lösche ich mit:

Delphi-Quellcode:

procedure TFRechnungen.DBGridRechnungsdatenDblClick(Sender: TObject);
begin
  if MessageDlg('Diese Position wirklich löschen?', mtWarning,
                [mbYes, mbNo], 0)= mrYes then
  QueryRechnungsdaten.Delete;
end;

Wie erreiche ich bitte, dass nach dem Löschen einer Position
die PosNrn neu durchnummeriert werden?

Besten Dank für Hilfe!

Gruß
Lombi