anchor.diff:    arch: TUnZipperEx;
     i: Integer;
   
  -var
     res_id: TResId;
     res_loc: TResLocation;
     res_typ: TResourceType;
  
positive.code:   TResId = record
      VFSPath: String;
      Typ: TResourceType;
    end;
  
    { TResIDCompare }
  
negative.code: var
    it : TResIDToLocationMap.TIterator;
  begin
    AName := NormalizeResourceName(AName);
    it := SelectResource(AResType, AName);
    Result := Assigned(it);
    FreeAndNil(it);
  