procedure TForm1.ClientDataSetlAfterPost(DataSet: TDataSet); begin with DataSet as TClientDataSet do ApplyUpdates(1); end;