[gustavosv]

Hola, también podríamos cambiar el código:

Código Delphi [-]
      for j:= 0 to DataSet.FieldCount-1 do
        if DataSet.Fields[j].FieldName = TS[i] then
          Result:= Result +' '+ DataSet.Fields[j].AsString;

por:

Código Delphi [-]
Result:= Result +' '+ DataSet.FieldsByName(TS[i])

Saludos.