[MegaPiha]

Код:

procedure TForm1.Table1AfterPost(Sender : TObject);
begin
  If Table2.State <> dsEdit Then Table2.Edit;//если table2 не находится в режиме редактирования то перевести ее в режим редиктирования
  Table2.FieldByName('name').asString := Table1.FieldByName('name').AsString; // записываем в поле name Table2 соответствующее поле name Table1 
  Table2.Post;//сохраняем изменения в Table2.
end;