No sé cómo cargas los campos en el ADOQuery, pero te puedo decir que puedes usar un ADOTable al que asignas el nombre de la tabla y usar su método GetFieldNames para cargar directamente los campos a un ListBox:
Código Delphi
[-]
ADOTable1.GetFieldNames(ListBox1.Items);
// Saludos