[poli-smen]

Вот проверил. У меня вот так работает:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  el: Helems;
  i: Integer;
begin
  Webbrowser1.getElementsByTagName('input', el, 'type', 'radio');
  for i := Low(el) to High(el) do
    if AnsiSameText(Trim(el[i].parentElement.innerText), 'Да') then
      el[i].click;
end;