ADO Database Delphi

Bunun için kullandığınız table'da bir calculated alan oluşturun, mesela
SIRANO olsun. Daha sonra Table'ın OnCalcFields olayına aşağıdaki kodu yazın:
Table1.FieldByName('SIRANO').AsInteger := Table1.RecNo + 1