初学者请教一个问题请高手指点一下请问错在什么地方
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;