Letzte Rechnungsnummer um 1 hochzählen

[LOMBI]

Guten Abend,

benötige bitte Hilfe bei folgender Lösung:

Delphi-Quellcode:

TFormRechnungen.QueryRechnungenBeforeInsert(DataSet: TDataSet);
var
  letzte_nummer: Integer;
  QueryRNr: TQuery;
begin
  letzte_nummer := 0;
  QueryRNr := TQuery.Create(nil);
try
  QueryRNr.SQL.Clear;
  QueryRNr.DatabaseName := QueryRechnungen.DatabaseName;
  QueryRNr.SQL.Add('SELECT LAST(RNr) FROM Rechnungen');
  QueryRNr.Open;
  letzte_nummer : QueryRNr.Fields[0].AsInteger;
finally
  QueryRNr.Close;
  QueryRNr.Free;
  inc(letzte_nummer);  // Rechnungsnummer um 1 erhöhen
  EditRNr.Text := Format('%.10d',[letzte_nummer]);

Ich möchte gerne erreichen, dass die Hochzählung generell bei der
zuletzt eingetragenen oder geänderten Rechnungsnummer startet.
Wie bitte kriege ich das hin?

Gruß
Lombi