[[Nbull]]

Neftalí muchisimas gracias ya he solucionado el problema pongo el código por si alguien que sea tan novato como yo lo necesita:

Código Delphi [-]
procedure TForm7.FormCreate(Sender: TObject);
begin
 AdoQuery1.SQL.Text:='SELECT distinct Poblacion FROM agenda';
 AdoQuery1.Active:=true;
 WHILE not AdoQuery1.EOF do
 begin
     If(Adoquery1.Fields.FieldByName('Poblacion').IsNull=false)Then
      begin
       ListBox1.Items.Add(Datasource3.DataSet.FieldByName('poblacion').AsString);
      end;
      AdoQuery1.Next;
 end;
end;

Un Saludo y muchas gracias