cómo saber el nombre de los campos en ejecucion?

[delphi.com.ar]

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

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

Memo1.Lines.Assign( Query1.FieldList );