delphi 2010 下的 for xxx in XXX 语法怎么转换成DELPHI7 下的语法

delphi 2010 下的 for xxx in XXX 语法如何转换成DELPHI7 下的语法
delphi 2010 下的 for xxx in XXX then 语法如何转换成DELPHI7 下的语法，

for SubJson in [ColsJson] then
   begin
       ft := TFieldType(GetEnumValue(TypeInfo(TFieldType),'ft'+SubJson.S[cstFieldType]));
      if ft= ftAutoInc then //自增字段不能录入，必须更改
        ft := ftInteger;
      Fields.Add(SubJson.S[cstFieldName],ft,SubJson.I[cstFieldSize],SubJson.B[cstRequired]);
  end;
------解决方案--------------------
for in 在delphi 2006开始就加入了，d2005没用过不知道。
直接for low to high