این هم یک کد:

Table1.Fields[0].asinteger:=Table1.RecordCount+1