Obtención de la Estructura de un AdoQuery

[__cadetill]

Bueno, sería lo mismo que poner

for i := 0 to ADOQuery1.Fields.Count - 1 do
begin
  case ADOQuery1.Fields[i].DataType of
    ftInteger:
    ......
  end;
end;

O sea, atacar a la propiedad Fields en lugar de la FieldDefList

No es que esté ni mejor ni peor, es una alternativa