[Abikon]

Здравствуйте. Кто нибудь подскажите мне пожалуйста, как можно добавить запись к двум связанным таблицам. Я использовал такой код:
f

Код:

rmdolzhniki.ADOTable1.Append;
frmdolzhniki.ADOTable1.Edit;
frmdolzhniki.ADOTable2.Append;
frmdolzhniki.ADOTable2.Edit;
FrmDolzhniki.ADOTable2.FieldByName('Naimenovanie').AsString:=Frmprodatdolg.DBEdit1.Text;
FrmDolzhniki.ADOTable2.FieldByName('Kolichestvo').AsString:=Frmprodatdolg.Edit1.Text;
FrmDolzhniki.ADOTable2.FieldByName('Cena').AsString:=Frmprodatdolg.DbEdit2.Text;
FrmDolzhniki.ADOTable1.FieldByName('Fio').AsString:=Frmprodatdolg.Edit2.Text;
FrmDolzhniki.ADOTable1.FieldByName('Adres').AsString:=Frmprodatdolg.Edit3.Text;
FrmDolzhniki.ADOTable1.FieldByName('Domtel').AsString:=Frmprodatdolg.Edit4.Text;
FrmDolzhniki.ADOTable1.FieldByName('Mobtel').AsString:=Frmprodatdolg.Edit5.Text;
if frmdolzhniki.ADOTable1.Modified then frmdolzhniki.ADOTable1.post;
if frmdolzhniki.ADOTable1.Modified then frmdolzhniki.ADOTable2.post;

Тогда только добавляется только к главному таблице. А подчиненная таблице нечего не записывается.
Поля DBEdit1.Text, DbEdit2.Text-берет данные из другой таблицы. Подскажите мне пожалуйста, в чем ошибка. А то уже третий день мучаюсь.