anchor.diff:    FResults := TPerformedOperations.Create();
     FMessages := TStringList.Create;
     FPerformedOperations := TPerformedOperations.Create();
  +  FCriticalSection := TCriticalSection.Create;
  +  FThreadSafe:= false;
   end;
   
   destructor TPerformedOperationResultsAsLog.Destroy;
  
positive.code:     FResults : TPerformedOperations;
      FPerformedOperations : TPerformedOperations;
      FMessages : TStringList;
  
      function GetMessages: TStrings;
    public
  
negative.code: interface
  
  uses
    Classes, contnrs, syncobjs;
  
  type
    IPerformedOperationResults = interface
  