ComboBox как заполнить из БД

[scrazy]

Помогите пожалуйста...
Вроди всё заполняется..
Вот код..
procedure TForm1.FormCreate(Sender: TObject);
var
nr,i:integer;
begin
nr:=ADOTable1.RecordCount;
ADOTable1.First;
for i:=0 to nr-1 do begin
ComboBox1.Items.Add(ADOTable1.Field s.Fields[1].AsString);
ADOTable1.RecNo:=ADOTable1.RecNo+1
end;
end;
Но есть проблема.. когда выбераешь в СомбоБоксе не отображается ни фига в привязанной таблице...

[scrazy]

Еще там вот есть
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
//Form1.ADOTable1.Locate('name_pred', ComboBox1.Text,[loCaseInsensitive, loPartialKey])
ADOTable1.Filter:='name_pred='''+Co mboBox1.Text+'''';
ADOTable1.Filtered:=true;end;
end.

[Killer_djon]

procedure TForm1.Create(Sender : Tobject);
begin
with ADOTable1 do
begin
first;
while not eof do
begin
combobox1.items.add(ADOTable1.field Values['Имя_поля']);
end
end;
with ADOTable1 do
next;

end;

procedure TForm1.Combobox1Change(Sender : TObject);
begin
if not ADOTable1.locate('Имя_того же Поля', combobox1.text, []) then exit;
end;