[[fjcg02]]

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