anchor.diff:      Item := Iterator.FirstPCBObject;
       While (Item <> Nil) Do
       Begin
  -        Inc(ItemCount);
   		{
           If Item.Net <> Nil Then
   		Begin
  
positive.code:     If Board = Nil Then Exit;
      
      ItemsList := TStringList.Create;
  
      // retrieve the iterator
      Iterator        := Board.BoardIterator_Create;
  
negative.code: 		If Item.Net <> Nil Then
  		Begin
              NetName := Item.Net.Name;
  			If NetInList(NetName, NetsToExport) Then
  			Begin
  				Inc(ItemCount);
  			
  				HoleSize := FloatToStr(CoordToMils(Item.HoleSize));
  			
  				If Item.ObjectId = eViaObject Then
  				Begin
  					PadSize := FloatToStr(CoordToMils(Item.Size));
  				End
  				Else If Item.ObjectId = ePadObject Then
  				Begin
  					PadSize := FloatToStr(CoordToMils(Max(Item.MidXSize, Item.MidYSize)));
  				End;
  				
  				CenterX := FloatToStr(CoordToMils(Item.X - Board.XOrigin));
  				CenterY := FloatToStr(CoordToMils(Item.Y - Board.YOrigin));
  		
  				ItemString := NetName + ';' + HoleSize + ';' + PadSize + ';' + CenterX + ';' + CenterY;
  				//ShowMessage(ItemString);
  				
  				ItemsList.Add(ItemString);
  			End;
  		End;
      
          Item := Iterator.NextPCBObject;
  