anchor.diff:  
   procedure TParserWorker.ListPasFiles;
   var
  -  ResultList: TOmniBlockingCollection;
  +  ResultList: IOmniBlockingCollection;
     RetunrValue: TObject;
     PasValue: TOmniValue;
   begin
  
positive.code: 
  procedure TParserWorker.ParseFiles;
  var
    ResultList: TOmniBlockingCollection;
    PasValue: TOmniValue;
  begin
    ResultList := TOmniBlockingCollection.Create;
  
negative.code: 
  procedure TParserWorker.ListDcuFiles;
  var
    ResultList: IOmniBlockingCollection;
    RetunrValue: TObject;
    DcuFile: TOmniValue;
  begin
  