[bulc]

Código Delphi [-]
If DataSource1.DataSet.State in [dsInsert, dsEdit] then
begin
 ClientDataSet1.Post;
 ClientDataSet2.ApplyUpdates(0) // Máximo un error 
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.