BeginChange (role)

procedure BeginChange;

procedure WFClassA.doSomething;
var inst:WFClasseC; idx:Integer; t1,t2,t3:longint;
begin
  WFClasseCList.BeginChange;
  try
    with Transaction do
     begin
       instC := WFClasseC.Create;
       // RefA is the reciprocal role of WFClasseCList
       // without BeginChange the instC would have been inserted in WFClasseCList
       instC.oidRefA := InstanceOID;
     end;
  finally
  WFClasseCList.EndChange;
  end;
end;