Si quieres llenar el combo con el nombre de todos los campos, puedes usar un bucle:
Código Delphi
[-]
for j:= 0 to qry.FieldDefs.Count-1 do
with qry.FieldDefs.Items[j] do
combo.items.add(Name);
Realmente no sé si es lo que necesitas ya que dices que solo quieres mostrar algunos, pero no dices que condición deben cumplir para mostrarlo.
Saludos