[NumLock]

Код:

var
  Document: OleVariant;
  ElementCollection: IHTMLElementCollection;
  i: Integer;
begin
  ...
  while WebBrowser1.ReadyState<READYSTATE_COMPLETE do
    Application.ProcessMessages;
  ElementCollection:=IUnknown(Document.all) as IHTMLElementCollection;
  for i:=0 to ElementCollection.length-1 do
  begin
    if (ElementCollection.item(i, EmptyParam) as IHTMLElement).tagName='INPUT' then
    begin
      if (ElementCollection.item(i, 0) as IHTMLInputElement).type_='radio' then
        if (ElementCollection.item(i, 0) as IHTMLInputElement).value='opera' then
          (ElementCollection.item(i, 0) as IHTMLInputElement).checked:=True;
    end;
  end;