Rellenar un ListBox con los registros de un campo de la BD

[[Nbull]]

Neftali soy un pesao pero es que le he dado dos mil vueltas y no me deja ejecutar la aplicación, tengo el siguiente codigo:

Código Delphi [-]
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);
 end;
end;

Hay veces que se me queda haciendo un bucle infinito con el While y no se me llega a ejecutar la aplicación y otras veces como es el caso del código que te he puesto más arriba me da un excepción.

Todo depende de como intente añadir al ListBox las poblaciones

DbAux es un DbEdit que lo he asociado al campo Poblacion del Adoquery1. Estoy atascado no se como seguir, a ver si lo consigo y dejo de molestar por que soy un pesao...