已经生成了SQL语句，怎么将字段名为MC的用当前记录号加进去？

语句如下：怎么就是不能将当前记录号代入MC（数值型）字段中
procedure Trepoprint1.FormActivate(Sender: TObject);
var
pp:integer;
begin
with query1 do
begin
  close;
  sql.clear;
  sql.add('select * from czb where datea='+'"'+table1.fieldbyname('datea').asstring+'"');
  sql.add(' and dm="002"');
  open;
end;
query1.Edit;
for pp:=0 to query1.recordcount -1 do
query1.FieldByName('mc').asinteger:=query1.RecNO;
end;