Eine weiter möglichkeit wäre du erstellt einen zweiten Feld z.B. nummer und speicherst dort die Nummer ab:
Delphi-Quellcode:
with Tabelle do
begin
Append;
Fieldbyname('Nummer').AsInteger := 10000 + Fieldbyname('ID').AsInteger;
Post;
end;
Oder das machst du OnBeforePost