anchor.diff:    end;
   end;
   
  -procedure TfrmDLMain.DumpAnalysis(log: TStrings; const unitInfo: TDLUnitInfo);
  +procedure TfrmDLMain.DumpAnalysis(log: TStrings; const unitInfo: IDLUnitInfo);
   var
     isProgram: boolean;
   begin
  
positive.code:     DumpSyntaxTree(log, children[i], newPrefix);
  end;
  
  procedure TfrmDLMain.DumpUses(log: TStrings; const usesList: IList<string>; const location: TDLCoordinate);
  var
    unitName: string;
  begin
  
negative.code:     FShowing   : TShowing;
    strict protected
      function  AttributestoStr(const attributes: TArray<TAttributeEntry>): string;
      procedure DumpAnalysis(log: TStrings; const unitInfo: IDLUnitInfo);
      procedure DumpSyntaxTree(log: TStrings; node: TSyntaxNode; const prefix: string);
      procedure DumpUses(log: TStrings; const usesList: TDLUnitList;
        const location: TDLCoordinate);
      procedure LoadSettings;
      procedure SaveSettings;
      procedure ShowAnalysis;
  