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