anchor.diff:      FID: string;
       FDescription: string;
     begin
  +    FDescription := '';
  +
       for i := 0 to FSubtagRegistry.Count-1 do
       begin
         line := Trim(FSubtagRegistry[i]);
  
positive.code:         FType := value
        else if code = 'Subtag' then
          FID := value
        else if code = 'Description' then
          FDescription := value;
      end;
    end;
  
negative.code:             FRegions.Add(FID + '=' + FDescription);
          end;
          FType := '';
          FDescription := '';
          Continue;
        end;
  
  