[2face]

with table1 do
begin
open;
while not EOF do
begin
DBComboBox1.items.add(FieldByName('имя поля').AsString);
next;
end;
end;