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;