Mostrar en un combobox lo que hay en una tabla

[Daniel10]

Muy buenos días/noches... a todos

Estoy viendo la manera de hacer funcionar mi código que no me funciona.

Tengo una BD acces, con varias tablas.

Mi código lo que deberia hacer es mostrar en un combobox lo que tengo en la tabla1, y por medio de un botón poder agregar otro item a la tabla1.

Para mostrar lo que hay en la tabla1 uso este código, pero no me muestra nada, ni si queira me salta algún error.

Código Delphi [-]

ADOQuery1.Active := False;
   ADOQuery1.SQL.Text := 'Select Campo from Tabla1';
   ADOQuery1.Active := True;
   While not ADOQuery1.Eof do
   begin
      Combobox1.Items.Add(ADOQuery1.Fields[0].Text);
      ADOQuery1.Next;
   end;
   AdoQuery1.Active := False;

El ADOConnection1 conectado la la base datos BASE.mdb

el ADOQuery1 en propiedad SQL escribi Select * from Tabla1, en propiedad conection conectado a ADOConnection1, en propiedad Active: truee

el DataSource4 conectado al ADOQuery1.

Agregue un DBGrid1 conectado al datasource4 y me muestra lo que tengo en la tabla.
Pero en el combobox queda vacío


donde esta mi errrror...