что делаю неправильно

[zidane007_06]

Добрый вечер всем.
Я еще новичок в Delphi и немогу понять как сделать кнопку "добавить"(т.е. что неправильно в коде) значение из выпадающего списка DBLookupComboBox неотображается в DBGrid при нажати кнопки "добавить"
Посмотрите:

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('adres').AsString:=Edit1.Text;
  ADOQuery1.FieldByName('fio').AsString:=Edit2.Text;
  ADOQuery1.FieldByName('izdanie').AsString:=Edit3.Text;
  ADOQuery1.FieldByName('u4astok').Value:=DBLookupComboBox1.KeyValue;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
except
  on e:Exception do
end;
end;

Жду ответа и спасибо заранее


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[fbus]

procedure TForm1.Button1Click(Sender: TObject);
begin
try
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('adres').AsString:=Edit1.Text;
  ADOQuery1.FieldByName('fio').AsString:=Edit2.Text;
  ADOQuery1.FieldByName('izdanie').AsString:=Edit3.Text;
  ADOQuery1.FieldByName('u4astok').Value:=DBLookupComboBox1.KeyValue;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  ADOQuery1.Active:=false;
  ADOQuery1.Active:=true;
except
  on e:Exception do
end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[_Engine_]

А где Post?