Te falta el Next. Estás incluyendo en el Listbox siempre el mismo registro, por eso nunca termina el bucle.
procedure TForm7.FormCreate(Sender: TObject);
begin
AdoQuery1.Active:=true;
WHILE not AdoQuery1.EOF do
begin
AdoQuery1.SQL.Text:='SELECT distinct Poblacion FROM agenda';
ListBox1.Items.Add(Dbaux.Field.Text);
AdoQuery1.NEXT;
end;
end;
Espero que te sirva de ayuda.
Un saludo
__________________
Cuando los grillos cantan, es que es de noche - viejo proverbio chino -
|