Проверка установленного класса родителя из дочернего элемента в Delphi

procedure TForm1.Button5Click(Sender: TObject);
  var CodeStr : string;
begin
      CodeStr := 'var g = document.getElementsByClassName("b-pager__next"); var t = g[0].parentNode; if (t.classList.contains("b-pager__inactive")) {alert("asd");} else {alert("fas");}';
      EmbeddedWB1.ExecScript(CodeStr,'JavaScript');
end;

procedure TForm1.Chromium1ConsoleMessage(Sender: TObject;
  const browser: ICefBrowser; message, source: ustring; line: Integer;
  out Result: Boolean);
begin
if AnsiCompareStr(Copy(message,0,2),'ku')=0 then
begin
if (f=true) then
begin
Label6.Caption:=floattostr(strtofloat(Copy(message,4,2))-3);
nm1:=strtoint(Label6.Caption)-1;
if Label6.Caption='0' then
Stage:=20;
f:=false;
end;
if nm1<0 then
  Stage:=20;
end
else if AnsiCompareStr(Copy(message,0,2),'tv')=0 then
begin
tv:=Copy(message,4,length(Message)-3);
Label19.Caption:=tv;
if AnsiCompareStr(tv,ComboBox1.Items[ComboBox1.ItemIndex])=0 then
begin
      if CheckBox3.Checked then
      Stage:=23
      else
      begin
      if CheckBox1.Checked then
      Stage:=3
      else
      Stage:=4;
      end;
end
else
begin
  Stage:=21;
end;
xBut.Click;
end
else if AnsiCompareStr(Copy(message,0,2),'kf')=0 then
begin
fio:=Copy(message,4,length(Message)-2);
Label5.Caption:=fio;
end;
end;

procedure TForm1.TakeValue;
  var CodeStr: string;
begin
  if Assigned(Chromium1.Browser) and Assigned(Chromium1.Browser.Mainframe) then
    begin
      CodeStr := 'var link = document.getElementById("ctl00_ContentPlaceHolder1_ddlJournalsList"); console.log("tv "+link.options[link.selectedIndex].text);';
      Chromium1.Browser.MainFrame.ExecuteJavaScript(CodeStr, 'about:blank', 0);
      Label8.Caption:='Проверка совпадения класса';
    end;
end;