[lmikle]

Код:

procedure TForm1.Table1AfterPost(Sender : TObject);
begin
  If Table2.State <> dsEdit Then Table2.Edit;
  Table2.FieldByName('...').Value := Table1.FieldByName('...').Value; // но так нельзя для Memo полей (BLOB).
  Table2.Post;
end;