Как изменить запись в TTable

[Sinsinmin]

Есть 7 таблиц. Delphi DataBase Desktop Paradox7. Работаю с компонентами
Table и Query. Есть главная таблица с товаром. И есть побочная таблица с приходом товара. Как изменить поле главной таблицы на то количество товара которое добавили в таблицу с приходом.
Помогите плиз. Создал всё. Сделал поиски добавление удаление. Осталось тока вот это

[artemavd]

Установите связи между таблицами через Master-Detail.

[Sinsinmin]

Связи по изменяемому полю?И вы хотите сказать что оно само будет вычисляться?

[Sinsinmin]

Кому всё же интересно как это делается
procedure TAddPostavki.Button1Click(Sender: TObject);
var x,y:integer;
begin
Try
With Postavki do
begin
Table1.Insert;
Table1.FieldByName('Код_товара').As String:=Edit1.text;
Table1.FieldByName('Поставщик').AsS tring:=IntToStr(Combobox1.ItemIndex +1);
Table1.FieldByName('Производитель') .AsString:=IntToStr(Combobox2.ItemI ndex+1);
Table1.FieldByName('Дата_изготовлен ия').AsString:=DateToStr(DateTimePi cker1.Date);
Table1.FieldByName('Дата_прибытия') .AsString:=DateToStr(DateTimePicker 2.Date);
Table1.FieldByName('Количество').As String:=Edit2.text;
Table1.FieldByName('Цена').AsString :=Edit3.text;
Table1.FieldByName('Сумма').AsStrin g:=Edit4.text;
Table1.Post;

x:=StrToInt(Edit2.text);
end;


Tovar.Table1.Locate('Код_товара',ed it1.text,[]);
Tovar.Table1.Edit;

y:=Tovar.Table1.FieldByName('Кол_во ').AsInteger;
Tovar.Table1.FieldByName('Кол_во'). AsString:=IntToStr(x+y );
Tovar.Table1.post;
ShowMessage('Успешно добавлено');

except
ShowMessage('Ошибка добавления');
end;
end;