otra manera es crearlos aleatoriamente
Código Delphi
[-]
tabla.Filtered := false;
id := random(99999999999)
while tabla.locate('id',id,[]) do id := random(9999999999999);
tabla.Append;
...
o secuencialmente
Código Delphi
[-]
tabla.Filtered := false;
tabla.IndexFieldNames := 'id';
tabla.Last;
id := tabla.FieldByName('id').Asinteger + 1;
...
o usar los tipos autoincrementables en el diseño de la tabla