anchor.diff:        read FOuterUsesBoundaries;
       property InnerUsesBoundaries: TFileBoundary
         read FInnerUsesBoundaries;
  +
  +    property HasOuterUses: Boolean
  +      read GetHasOuterUses;
  +    property HasInnerUses: Boolean
  +      read GetHasInnerUses;
   
       constructor Create;
       destructor Destroy; override;
  
positive.code:     FOuterUsesBoundaries: TFileBoundary;
      FInnerUsesBoundaries: TFileBoundary;
  
      function ReadLoopUntilSemiColon(const sIn: ansistring; iStart: integer; var sOut: string): boolean;
  
      procedure ParseUsesList( const lstIn: TStrings; const lstOut: TStrings; bIsDkp: boolean = False );
  
negative.code:   end;
  end;
  
  function TUnitParser.GetHasOuterUses: Boolean;
  begin
    Result := FOuterUsesBoundaries.Start <> FOuterUsesBoundaries.Stop;
  end;
  
  function TUnitParser.GetHasInnerUses: Boolean;
  begin
    Result := FInnerUsesBoundaries.Start <> FInnerUsesBoundaries.Stop
  end;
  
  //----------
  
  
  