Falta cerrar un paréntesis en:
Código Delphi
[-]
ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion').AsString);
y opcionalmente ańadir el control para evitar un posible nulo, pero a ésto era a lo que yo me refería.
(Editado...)
NOTA: Veo que la aclaración llegó tarde...