Листинг 21 5 Обработчик события

Листинг 21.5.Обработчик события AfterPost

procedure TForm1.ClientDataSetlAfterPost(DataSet: TDataSet);

begin
with DataSet as TClientDataSet do
ApplyUpdates(1);
end;