Öncelikle tablomuzu oluşturuyoruz.tablo adı delphidunyasi olsun. otomatik artmasını istediğiniz alanın tipini Sayısal bir tip olarak seçin. örneğin integer tipini seçebilirsiniz.  otomatik artmasını istediğiniz alanın adınıda OtoAlan olarak belirlediğinizi varsayıyorum. bildiğiniz şekilde veritabanı bağlantınızı yapın. Ek olarak delphidunyasi tablosundan en büyük sayının bir fazlasını bulabilmemizi sağlayacak sorgumuzu çalıştırabilmemiz için forma 1  query ekliyoruz.
Query'nin SQL özelliğine Select Max(otoAlan)+1 As myOtoAlan From delphidunyasi

Şimdi bu sorguyu Datasetiniz herneyse (query,table vb.) afterinsert olayında çalıştırıp dönen değeri delphidunyasi tablosundaki otoAlan adlı alanımıza değeeri atıyoruz.
datasetinizin after isert olayına aşağıdaki kodu yazıyoruz.
BenimQuery.Open;
SizinDataset.FieldByName('otoAlan').Asinteger:=benimQuery.Fi eldByName('myOtoAlan').Asinteger;
benimQuery.Close;
bunu Datasetinizin BeforePost olayına aşağıdaki şekilde yazarakta halledebilirsiniz
if SizinDataset.FieldByName('otoAlan').isNull Then //Alan Boşsa
Begin
BenimQuery.Open;
SizinDataset.FieldByName('otoAlan').Asinteger:=benimQuery.Fi eldByName('myOtoAlan').Asinteger;
benimQuery.Close;
End;

belli bir süre alabilir ama gözle görülür bir yavaşlama olacağını sanmıyorum