Letzte Rechnungsnummer um 1 hochzählen

[LOMBI]

Nachtrag:

@marabu

Zitat:

procedure TFormRechnungen.QueryRechnungenBeforeInsert(DataSe t: TDataSet);
begin
DataSet.FieldByName('RNR').AsInteger := NextKey('RNR', 'Rechnungen');
end;

Damit es funktioniert muß der Code geändert werden:

Delphi-Quellcode:

procedure TFormRechnungen.QueryRechnungenBeforInsert(DataSet: TDataSet);
begin
  EditRNr.Text := IntToStr(NextKey('RNr', 'Rechnungen'));
end;

Noch ne Frage zu SQL.Text:
SQL.Text := Format('SELECT MAX(%s) FROM %s', [fldName, tblName]); Damit wird immer die "größte" vorhandene Rechnungsnummer hochgezählt.
Ich möchte, dass die Nr. frei wählbar bleibt, d.h. wird nach "1000"
nur "100" eingegeben, dann soll die nächste Nr. mit 101 hochgezählt
werden. Was gibt's dafür als Ersatz für "MAX"?

Gruß
Lombi