В таком варианте надо делать вычисляемое поле.
в обработчике ADOTable->ONCalcField
Код:
ADOTable1ВычисляемоеПоле.AsInteger:=ADOTable1.RecNo;
Вычисляемое поле, если я не ошибаюсб, в аксесе делается просто. Создаешь поле в таблице, например "ВычисляемоеПоле", в ADOTable в FieldsEditor указываешь все поля. В сво-вах поля "ВычисляемоеПоле" тип (FieldKind) выбираешь fkCalculated.
,