Hola, puedes crear un evento común y asignarlo en la creación del datamodulo a todos los componentes que requieras. En esa asignación, puedes validar que no tenga un evento asignado para evitar inconvenientes.
Código Delphi
[-]
..
private
procedure TablaAfterPost(DataSet: TDataSet);
..
procedure TModuloDatos.TablaAfterPost(DataSet: TDataSet);
begin
TTable(Dataset).FlushBuffers;
end;
procedure TModuloDatos.DataModuleCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to Self.ComponentCount - 1 do
begin
if Self.Components[i] is TTable
and (not Assigned(TTable(Self.Components[i]).AfterPost))
then
TTable(Self.Components[i]).AfterPost := TablaAfterPost;
end;
end;