为什么for i:=0 to adoquery1.fieldcount -1 do adoquery1['序号']:=adoquery1.RecNO;不能显示各记录行的序号？解决者请进，有30分。

Question

完整代码如下：
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
i:integer;
begin
adoquery1.Edit;
for i:=0 to adoquery1.fieldcount -1 do
adoquery1['序号']:=adoquery1.RecNO;
end;
表中的记录原来是以一个时间字段（设为了关键字段，或是用order by排）来排序的，按时间的从老到新排，这个计算字段的功能就是表示出这个序号，用1.2.3.4....来表示记录的序号。它的计算逻辑应该是怎么样写的呢？ 记录一显示1，记录二显示2....