Cada campo tiene una propiedad FieldName del tipo string, esto es lo que virtualmente relaciona al TField con el set de resultados. Si quieres puedes recorrer los campos
Código:
var
i : Integer;
begin
for i := 0 to Query1.Fields.Count -1 do
Memo1.Lines.Add( Query1.Fields[i].FieldName );
o utilizar FieldList que es un TStringList con el nombre de todos los campos
Código:
Memo1.Lines.Assign( Query1.FieldList );