anchor.diff:      for I := 0 to Decls.Count - 1 do
       begin
         p := TObject(Decls[I]) as TPasElement;
  -      Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
  -
  +//      Writeln('Interface item ', I, ': ' + p.Name + ' [line ' + IntToStr(p.SourceLinenumber) + ']');
       end;
       FreeAndNil(M);
     finally
  
positive.code:       finally
          SFile.Free;
        end;
        SendDebug('Procedure List: Starting Parse');
        case Language of
          ltPas: Parser.Origin := MemStream.Memory;
  //        ltCpp: CParser.SetOrigin(MemStream.Memory, MemStream.Size);
  
negative.code:       finally
          LoadObjectCombobox;
        end;
  //      SendDebug('Procedure List: QuickSorting procedures');
        QuickSort(0, FProcList.Count - 1);
  //      StatusBar.Panels[1].Text := Trim(IntToStr(lvProcs.Items.Count));
      finally
  