anchor.diff:    Ed.DoEventChange(AY);
   end;
   
  +{ TEditorHtmlTagList }
  +
  +function TEditorHtmlTagList.ItemPtr(AIndex: integer): PEditorHtmlTagRecord;
  +begin
  +  Result:= PEditorHtmlTagRecord(InternalGet(AIndex));
  +end;
  +
   { TEditorHtmlTagRecord }
   
   class operator TEditorHtmlTagRecord.=(const a, b: TEditorHtmlTagRecord): boolean;
  
positive.code: end;
  
  type
  
    { TEditorHtmlTagRecord }
  
    TEditorHtmlTagRecord = record
      bClosing: boolean;
      sTagName: string[30];
      class operator =(const a, b: TEditorHtmlTagRecord): boolean;
    end;
  
    TEditorHtmlTagList = specialize TFPGList<TEditorHtmlTagRecord>;
  
  procedure EditorFindHtmlTagsInText(const AText: UnicodeString;
    AList: TEditorHtmlTagList; AllowSingletonTags: boolean);
  
negative.code: function EditorFindHtmlLastOpenedTagInText(const AText: UnicodeString): string;
  var
    tags: TEditorHtmlTagList;
    tagPtr, tagPtr2: PEditorHtmlTagRecord;
    i, j: integer;
  begin
    Result:= '';
  