Delphi (свой убогий jQuery запрос)

function ParseClass(className: string): TArray<string>;
var
 en: TMatchCollectionEnumerator;
begin
 SetLength(result, 0);
 en:= TRegEx.Matches(className, '(?>\.{0}\w+[A-z-]+)').GetEnumerator;
 while en.MoveNext do
 begin
   SetLength(result, Length(result) + 1);
   result[Length(result) - 1] := en.Current.Value
 end;
end;
 
 
function GetElement(ec: IHTMLElementCollection; _class: string): IHTMLElement;
var
 x,y: integer;
begin
  if Assigned(ec) then
  begin
    for x := 0 to ec.length -1 do
    begin
      for y := 0 to Length(ParseClass(_class)) -1 do
      begin
        if (ec.item(x, 0) as IHTMLElement)._className = ParseClass(_class)[y] then
        begin
          Result := ec.item(x, 0) as IHTMLElement;
          GetElement((ec.item(x, 0) as IHTMLElement).all as IHTMLElementCollection, ParseClass(_class)[y+1]);
        end;
      end;
    end;
  end;
end;

procedure TFormMain.Button1Click(Sender: TObject);
var
 Html: TStringStream;
 Doc2: IHTMLDocument2;
begin
 try
   Html := TStringStream.Create;
   Html.LoadFromFile('.\index.html');
   Doc2 := LoadDocumentContent(Html.DataString);
 
   Log(GetElement(Doc2.all as IHTMLElementCollection, '.sp-review-main-ratings .sp-star-on').outerText);
 finally
   Html.Free;
 end;
 
end;