anchor.diff:          Item.SubItems.Add(IntToStr(Loc_Unit.UID));
         end
         else
  +      begin
           Item.SubItems.Add('nil');
  +        Item.SubItems.Add('-');
  +      end;
   
         Item.SubItems.Add(GetEnumName(TypeInfo(TKMDemandType), Integer(DemandType)));
         Item.SubItems.Add(GetEnumName(TypeInfo(TKMDemandImportance), Integer(Importance)));
  
positive.code: 
        Item.SubItems.Add(IntToStr(fOwner));
        Item.SubItems.Add(IntToStr(aI));
        Item.SubItems.Add(gRes.Wares[fOffer[OfferID].Ware].Title);
  
        if fOffer[OfferID].Loc_House = nil then
          Item.SubItems.Add('nil')
        else
        begin
          Item.SubItems.Add(gRes.Houses[fOffer[OfferID].Loc_House.HouseType].HouseName);
  
negative.code:         Item.SubItems.Add(IntToStr(fDemand[DemandID].Loc_Unit.UID));
        end
        else
        begin
          Item.SubItems.Add('nil');
          Item.SubItems.Add('-');
        end;
  
        if Serf = nil then
          Item.SubItems.Add('nil')
  