下面代码哪有问题？

begin
ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select * from DMESUser');
  ADOQuery2.Open;
  if ADOQuery2.FieldByName('GroupStr').AsString='A' then
  begin
  DBGrid_WIP.Columns.Items[7].ReadOnly:=False;
  end
  else
  begin
  DBGrid_WIP.Columns.Items[7].ReadOnly:=True;
  end;
  TSWIPList.Show;
end;当权限为A是可以更改第7列，其它的不能更改第7列. 怎么都不能更改第7列了呢