初学者请教一个问题请高手指点一下请问错在什么地方

Question

procedure TForm3.FormShow(Sender: TObject);
 var i:integer;
   ss:string;
begin
 //在权限设置中查询该用户名的权限
   i:=1;
  for i:=1 to 30  do
   begin
      with cxqx do
       begin
        close;
        sql.Clear;
        sql.Add('select * from qxxg where yhbh='''+trim(yhdl.yh.Text)+''' and mc='''+trim(form3.N+trim(intostr[I].Caption)+'''');
        open;
     end;
      if cxqx.RecordCount>0 then
           N+trim(inttostr[I]).enable:=cxqx.fieldbyname('N+inttostr[I]').value;
      end;
      i:=i+1;
     end;

Answer 1

i:=1;  //不要
i:=i+1;//不要
不允许在 for 循环中改变循环变量的值