Не могу сделать так, чтоб и внешний, и первичный ключи выводились на форму автоматически

[Ангелина_]

Здравствуйте!
Помогите, пожалуйста разобраться с такой задачей:
Главная форма:
Вверху - шапки заявок; внизу - строки заявок соответственно.

При нажатии на кнопку "Ввод строк заявки я перехожу на форму "Ввод / редактирование строк заявки, которая выглядит так:
DBEditEh для вывода ID таблицы и для вывода ID_shapki я положила на форму для того, чтоб смотреть, заполняются они автоматически или нет.
ID заполняется автоматически при событии показа формы, ID_shapki - нет.

Код на событие показа формы ввода данных:

procedure TfEdit_zayav.FormShow(Sender: TObject);
begin
//при показе формы:
 
   if Flag='Vvod_strok_zayav' then  //если нажата кнопка "Ввод строк заявки"
     begin
      fdm1.QMaxIDStrZ.Close; //   (select max(id) id  from stroki_zayav)
      fdm1.QMaxIDStrZ.Open;  //  открываем запрос для получения максимального id таблицы "Строки заявки"
 
      fdM1.QViewEditStrZ.Open; //Запрос вывода строк заявки  (select * from Stroki_zayav where  id=:prmStID) 
 
   //получаем то id, на котором стоит курсор в главном окне
   fdM1.QViewEditStrZ.ParamByName('prmStID').AsInteger:=fdm1.QMaxIDStrZID.AsInteger;
 
   fDM1.QViewEditStrz.Insert;  
   fdM1.QViewEditStrZID_SHAPKI.AsInteger:=fdm1.QShapkaID.AsInteger; //в этом месте должен автоматически
          // вводиться ID_shapki, чего, собссно, и не происходит
 
   fDM1.QViewEditStrZ.Close;  //если данные 2 строки я убираю - то случается всё с точностью до наоборот - 
   fDM1.QViewEditStrZ.Open;  // ID_shapki появляется, а ID таблицы "Строки заявки исчезает"
 
//КАК СДЕЛАТЬ ТАК, ЧТОБЫ АВТОМАТИЧЕСКИ ВЫВОДИЛИСЬ ОБА ID?
     end
 
 
   else if Flag='Edit_strok_zayav' then  //если нажата кнопка "Редактирование строк заявки"
      begin
      //получаем то  ID, на котором стоит курсор
  fdM1.QViewEditStrZ.Open;
  fdM1.QViewEditStrZ.ParamByName('prmStid').AsInteger:=fdm1.QNovZayavID.AsInteger; 
 // QNov_Zayav:         (select * from stroki_zayav where id_shapki= :prmID)
 
  fdM1.QViewEditStrZID_SHAPKI.AsInteger:=fdm1.QShapkaID.AsInteger;
 
 
 
  fDM1.QViewEditStrZ.Close;
 fDM1.QViewEditStrZ.Open;
      end;

[D-mon]

А Вы связали компонент DBEditEh с полем ID_shapki? 99,9% что нет. Вот значение и не выводится.

[Ангелина_]

Он выводится, только если убираю те 2 строчки... но тогда не выводится другое ай-ди.