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:   end;
  
    LoadFSConfig;
    FCurrentLoadOrder := -1;
    ProcessFSConfig(FConfig,FDataPath);
  end;
  
  