alter table 加个新字段qry.close
qry.sql.clear;
qry.sql.add('select * from tbl order by field');
qry.open;
i:=1;
while not qry.eof do
begin
  qry.edit;
  qry.fieldsbyname('新字段').asinteger :=i;
  qry.post;
end;