мда, незнам дали ш ми присъдят бира, но лесното решение на проблема се нарича Calculated Field.

като цъкнеш /не е лошо като за вместо Click :-)))/ с десния бутон върху ADOTable компонента /в дизайн режим/ има опция FieldsEditor. Та избираш тая опция - ще се отвори едно джамче, с четири бутона на връо и празно по-доле. пак дясна мишка в това, празното, New Field.
даваш име и тип на полето /Integer/, за вид на полето /Field Type radio-то/ - Calculated.

после - пак десен плъх, Add All Fields или Add Fields - за да се виждат и други неща, не само тоя брояч.

после - на същата ADOTable й пишеш OnCalcFields обработчик, който изглежда така:

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
if DataSet.RecNo = -1 then begin
DataSet.FieldByName('SeqNo').Value := 1;
end else begin
DataSet.FieldByName('SeqNo').Value := DataSet.RecNo;
end;
end;

те тоя код има грижата да пълни читава стойност за подредения номер. проверката за -1 се налага поради чтото за първия запис DataSet.RecNo е -1, което е странно, ама...

бтв, моето поле /създадено наръка/ се казва SeqNo, при теб - както го кръстиш.

--------------------------------------
Започва Път от моят праг...