type
  TNodeSetEnumerator = object
  private
    FList: TNodeSet;
    FCurrent: integer;
    function GetCurrent: TDOMNode;
  public
    procedure Init(AList: TNodeSet);
    function MoveNext: boolean;
    property Current: TDOMNode read GetCurrent;
  end;

operator Enumerator(X: TNodeSet): TNodeSetEnumerator;

implementation

operator Enumerator(X: TNodeSet): TNodeSetEnumerator;
begin
  Result.Init(X);
end;

{ TNodeSetEnumerator }

procedure TNodeSetEnumerator.Init(AList: TNodeSet);
begin
  FList:= AList;
  FCurrent:= -1;
end;

function TNodeSetEnumerator.GetCurrent: TDOMNode;
begin
  Result:= TDOMNode(FList[FCurrent]);
end;

function TNodeSetEnumerator.MoveNext: boolean;
begin
  inc(FCurrent);
  Result:= FCurrent < FList.Count;
end;