Código:
procedure TForm7.FormCreate(Sender: TObject);
begin
// Asigna la SQL y abre una sola vez, no cien ..
AdoQuery1.SQL.Add('SELECT distinct Poblacion FROM agenda');
AdoQuery1.Active:=true;
// recorre los registros
WHILE not AdoQuery1.EOF do
begin
// y asigna el valor de los campos de esa query que utilizas, y no otra
ListBox1.Items.Add(AdoQuery1,Fields.FieldByName('Poblacion'.AsString);
AdoQuery1.NEXT;
end;
end;
Espero que te sirva de ayuda.
Un saludo