Código Delphi
[-]If DataSource1.DataSet.State in [dsInsert, dsEdit] then
begin
ClientDataSet1.Post;
ClientDataSet2.ApplyUpdates(0) end
Lo podrías ampliar para hacer más comprobaciones de los campos, en aras de blindar la operación.
También puedes usar el evento AfterInsert que se realizó la operación.