Как установить значение input`а(type=radio) в TWebBrowser?

procedure TForm1.Button1Click(Sender: TObject);
var
  Doc, Elem, ElemNew : Variant;
  STag, SID : String;
begin
  //Ссылка на документ.
  Doc := WebBrowser1.OleObject.document;
  if TVarData(Doc).VDispatch = nil then begin
    ShowMessage('Документ не задан. Действие отменено.');
    Exit;
  end;
 
  //Параметры поиска.
 
  //Тег.
  STag := 'INPUT';
  //ID элемента.
  SID := Edit1.Text;
  if SID = '' then begin
    ShowMessage('ID не задан. Действие отменено.');
    Exit;
  end;
 
  //Поиск и выполнение.
 
  //Получаем ссылку на интерфейс элемента с заданным ID.
  Elem := Doc.getElementById(SID);
  if TVarData(Elem).VDispatch = nil then begin
    ShowMessage('Элемент с заданным ID не найден. Действие отменено.');
    Exit;
  end;
  //Проверка тега элемента.
  if Elem.tagName <> STag then begin
    ShowMessage('Тег элемента с заданным ID не совпадает с заданным тегом . Действие отменено.');
    Exit;
  end;
  //Создаём новый элемент.
  ElemNew := Doc.createElement('INPUT');
  ElemNew.type := 'RADIO';
  //Имя надо установить такое, чтобы оно совпадало с именем других
  //радио-элементов, с которыми новый элемент должен работать совместно.
  //Пускай, например, имя будет таким: "RadioGroup1".
  ElemNew.name := 'RadioGroup1';
  //Заменяем прежний элемент на новый.
  Elem.form.replaceChild(ElemNew, Elem);
  //Устанавливаем тот же ID, если в этом есть потребность.
  ElemNew.id := SID;
  //Если требуется, устанавливаем выбор.
  ElemNew.checked := True;
end;

uses jsWebBrowser;
 
<...>
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  web.RunJS('document.getElementById("myform").mycheck[1].checked=true;');
end;

  Elem.checked := True;