procedure TFormOrder.ButtonInsertClick(Sender: TObject);
var Id: integer;
begin
// показываем форму диалога, где пользователь заполняет параметры и добавляет/редактирует строку
  Id := ShowEditZakaz(Sender=ButtonInsert,qOrder);
  if Id > 0 then begin
    ReopenZakaz;
    qOrders.Locate('KOD_ZAKAZA',Id,[]); // думаю что qOrders отображает ваши заказы
  end;  
end;

// функция, которая будет создавать форму редактирования.
function ShowEditZakaz(TheInsert: boolean; DS: TDataset): integer;
begin
  with TDOrder.Create(Application) do begin
// заполняем ComboBox справочником Владельцев
// лучше всего написать отдельную процедуру, которая будет заполнять любой комбик с любого датасета
// типа InitComboBox(DS: TDataset; FieldName, KeyField: string);
    with Qvladelec do begin
      Open;
      while not Eof do begin
        ComboBox1.Items.AddObject(Qvladelec['NAME']+' '+Qvladelec['SURNAME']+' '+Qvladelec['OTCHESTVO'],TObject(Qvladelec['KOD_OWNER']);
        Next;
      end;
    end;
// заполняем контролы, если редактируем запись
    if not TheInsert  then begin
      ComboBoxVladelec.ItemIndex := ComboBoxVladelec.Items.IndexOfObject(DS['KOD_OWNER']);
      DateEditDataPostuplenia.Date := DS['DATA_POSTUPLENIA'];
      .....
    end;
// показываем форму редактирования
    if ShowModal = 1 then begin
// пользователь нажал на ОК, вставляем запись
      if TheInsert then begin
// добавляем в таблицу новую запись 
        qZakazChange.SQL.Text := 'insert into Orders(KOD_OWNER,.....) values(:P1, ......) return @@identity';
// return @@identity возвращаем ID новой сточки. Не уверен что IB именно так
        qZakazChange.ParamByName('P1').Value : = integer(ComboBoxVladelec.Items.Objects[ComboBoxVladelec.ItemIndex]);
        qZakazChange.ExecQuery;
        Result := qZakazChange.ParamByName('@RETURN_VALUE').Value; // возвращаем ID новой строки, чтобы потом можно было на неё спозиционироваться
      end
      else begin
// изменяем запись
        Result := DS['KOD_ZAKAZA'];
        qZakazChange.SQL.Text := 'update Orders set KOD_OWNER = :P1 where KOD_ZAKAZA=:P2';
        qZakazChange.ParamByName('P1').Value : = integer(ComboBoxVladelec.Items.Objects[ComboBoxVladelec.ItemIndex]);
        qZakazChange.ParamByName('P2').Value : = Result;
        qZakazChange.ExecQuery;
      end;
    end
    else Result := -1; // возвращаем -1 (пользователь отказался редактировать)
    Free;
  end;
end;