DBLookupComboBox добавление новой записи в таблицу

[Djin1904]

Доброго времени суток братцы!Я попытался разобраться с добавлением информации с помощью DBLookupComboBox на простом примере-но у меня добавляется только первая строчка,а в последующем она просто обновляется(последний скриншот(Kod=3)).Для понятности выкладываю скрины:
Вот текст программы для кнопки"Добавить":

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
if (Trim(Edit1.Text)='') or (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='')
  then
  begin
  exit;
  end;
  ADOQuery1.Insert;
  ADOQuery1.FieldByName('Имя').AsString:=Edit1.Text;
  ADOQuery1.FieldByName('Фам').AsString:=(Edit2.Text);
  ADOQuery1.FieldByName('Дата').AsString:=(Edit3.Text);
  ADOQuery1.FieldByName('Kod').Value:=DBLookupComboBox1.KeyValue;
 (Application.MessageBox('Не задудьте сохрание нового пациента','Сообщение',MB_IconWarning));
 except
 on e:Exception do
end;
end;

Ну а кнопку Сохранить:

procedure TForm1.Button3Click(Sender: TObject);
begin
  ADOQuery1.Post;
end;

ADOQuery1.FieldByName('Kod').Value: =DBLookupComboBox1.KeyValue-что нужно изменить в этой строке или добавить?

Не надо Courier New, выделить код и кнопка # вверху

[xxbesoxx]

 ADOQuery1.FieldByName('Kod').Asinteger:= ADOQuery2.FieldByName('Kod').AsInteger;

Как то так .... Но в начале ComboBox1 надо отфильтровать "Диагноз" код оформляй красиво

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Trim(Edit1.Text)<>'') or (Trim(Edit2.Text)<>'') or (Trim(Edit3.Text)<>'') then
  begin
  with ADOQuery1 do
   begin
     Insert;
      FieldByName('Имя').AsString:= Trim(Edit1.Text);
      FieldByName('Фам').AsString:= Trim(Edit2.Text);
      FieldByName('Дата').AsString:= Trim(Edit3.Text);
      FieldByName('Kod').Asinteger:= ADOQuery2.FieldByName('Kod').AsInteger;
     POST;
  end;
end;

end.

[Djin1904]

Сообщение от xxbesoxx

 ADOQuery1.FieldByName('Kod').Asinteger:= ADOQuery2.FieldByName('Kod').AsInteger;

Как то так .... Но в начале ComboBox1 надо отфильтровать "Диагноз" код оформляй красиво

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Trim(Edit1.Text)<>'') or (Trim(Edit2.Text)<>'') or (Trim(Edit3.Text)<>'') then
  begin
  with ADOQuery1 do
   begin
     Insert;
      FieldByName('Имя').AsString:= Trim(Edit1.Text);
      FieldByName('Фам').AsString:= Trim(Edit2.Text);
      FieldByName('Дата').AsString:= Trim(Edit3.Text);
      FieldByName('Kod').Asinteger:= ADOQuery2.FieldByName('Kod').AsInteger;
     POST;
  end;
end;

end.

Спасибо огромное!Все заработало!